in reply to efficient method of matching a string against a list of substrings?
my @results = grep { $str =~ /$_/ } @sub; [download]