sub find(Str $str, @words) { @words.grep(-> $word { $str.contains($word) }) || 0 } say find "perlweeklychallenge", < weekly challenge perl > ; say find "perlandraku", < python ruby haskell > ;