@matches = grep {$scalar =~ /$_/} qw/string1 string2 string3 string4/