Select Code to Download

my @filtered = grep /someregex/, @original;

my @filtered;
for $str (@original) {
...
        push @filtered, $str;
    }
}