#!/usr/bin/perl -w 

$genome='Sbay';
system("cat $genome/$genome.ultrascaf  $genome/$genome.unplaced  > tmp.fa ");


open(IF,"tmp.fa");

while($a=<IF>){
if($a=~ /^>/){
@b=split(/[_ ]/,$a);
$head = $b[1];
print ">chr$head\n";
}
else{print $a;}
}






