Select Code to Download

#!/usr/bin/env perl

...
        print $out_fh ">$head\n$seq\n";
    }
}

$ cat pm_1205271_bio_fasta_extract_dummy_in.fasta
>1: not wanted - too short
...
xxxxxxxxxGGxxxxxxxxxxGG
>7: wanted - match unique
yyyyyyyyyyGGxxxxxxxxxxGG