Select Code to Download

use strict;
use warnings;
...
my @grepped = grep { $_ =~ m/foo/ || $_ =~ m/bar/ } @data;

print "$_\n" for @grepped;