#!/usr/bin/perl


use strict;
use warnings;

my $inputfile = $ARGV[0];


my %seqs;
open GENOMESEQ, "gzip -dc $inputfile|" || die "$!";
while(<GENOMESEQ>) {
   chomp;
   next if(/^#/);
   my $seqname = $_;
   if($seqname =~ /^\d/ or $seqname =~ /^X/ or $seqname =~ /^Y/ or $seqname =~ /^M/ or $seqname =~ /^Pt/) {
        print "chr".$seqname."\n";
   } else {
	print $seqname."\n";
   }
}
close GENOMESEQ;
