Help for this page

Select Code to Download


  1. or download this
    my $regex = qr/>([\S]*)\s*.*\s([A-Za-z\s]+)/;
...
while( $fasta_sequence =~ m/$regex/igm ) {
  2. or download this
        $sequence =~ tr/[\r|\n]//d; # delete all line breaks