in reply to Silly regex with match extrapolation

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

[download]

In Section Seekers of Perl Wisdom