Select Code to Download

#!/usr/bin/perl
use warnings;
...
if (my ($bogus, $acids) = $line =~ /BOGUS\s+([A-Z0-9_]+) ([0-9]+ [a-z]
++)/) {
    print "bogus: $bogus\nNumber of acids: $acids\n"
}