in reply to Silly regex with match extrapolation

Another way, in 1 line:
@matches = grep {$scalar =~ /$_/} qw/string1 string2 string3 string4/