my @results = grep { $str =~ /$_/ } @sub;