@arr = map {qr/\Q$_\E/} @arr;
my @keepers = do {
    local $" = '|';
    grep { m/@arr/ } <>;
};