#!/usr/bin/perl -w
use strict;

my $genome = "$ARGV[0]";

open IN, "<  $genome" or die "ERROR: Can not open file $genome";
my $tmp = "$genome".".tmp";
open OUT, "> $tmp" or die "ERROR: Can not open file '$tmp'";
my $i;
    while(<IN>) {
         if($_ =~ /^>/) { # change header
           $i++;
           if($_ =~ /^>(\d+\S*)\s(.*)$/) {
 	         print OUT ">adopted_$1 $2\n";
           }else {
           print OUT $_;
           }
         }else{
         print OUT $_;
         }
     }
close OUT;
close IN;