Select Code to Download

while (my $line = <DATA>) {
   chomp $line;
...
      ... other stuff ...
   }
}

perl foobar.pl >tmp
grep -E '^BOOM:' tmp | wc -l