SimplePathwayCommonBioPAXl2Fix

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=) { if($line =~ /<([^\s]+)\s+rdf:ID=\"(.+)\"(.+)/) { print OUTPUT "<$1 rdf:about=\"#$2\" $3\n"; }  	else { print OUTPUT "$line"; }  }
 * 1) !/usr/bin/perl