Select Code to Download

my $rx_fasta_header = qr{ \A > }xms;  # header pattern - very naive
my $rx_sequence     = qr{ \A [ACDEFGHIKLMNPQRSTVWY_]+ \z }xms;  # plea
+se check
...
    die "bad record: '$record'";  # don't know what this is

    }