if( $line =~ />contig_(\d+)\s/ ) { print ">$1\n"; } else { print "$line\n"; }