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


##</code><code>##

my @filtered;
for $str (@original) {
    if ($str ~~ /someregex/) {
        push @filtered, $str;
    }
}