Challenge 64 #2

sub find(Str $str, @words) {
    @words.grep(-> $word {
        $str.contains($word)
    }) || 0
}

say find
    "perlweeklychallenge",
    <
        weekly
        challenge
        perl
    >
;
say find
    "perlandraku",
    <
        python
        ruby
        haskell
    >
;