Select Code to Download

$ cat pm_1193237_input.fasta
>qwerty|111|222|999
...
GGGGGGGGGG
>plokmi|777|888|222
TTTTTTTTTT

#!/usr/bin/env perl

...
}

sub gen_fname { 'pm_1193237_output_' . $_[0] . '.fasta' }

$ cat pm_1193237_output_qwerty.fasta
>qwerty|111|222|999
...
TTTTTTTTTT
>plokmi|777|888|222
TTTTTTTTTT