#!/usr/bin/perl

if($#ARGV !=1 ) {
print "Usage: fixBioPAX.pl inputFileName outputFileName\n";
exit;

}
$input=$ARGV[0];
$output=$ARGV[1];

open(INPUT,$input);
open(OUTPUT, ">$output");
while($line=<INPUT>) {
	if($line =~ /<([^\s]+)\s+rdf:ID=\"(.+)\"(.+)/) {
		print  OUTPUT "<$1 rdf:about=\"#$2\" $3\n";
	}
	else {
		print OUTPUT "$line";
 	}

}
