gistfile1.txt

sub syllable($word is copy) is export {
    $word = $word.lc.subst("'", "").subst(/ 'e' $/ , "");

    my $syl = $word.comb(/<[aeiouy]>+/) # count vowel groupings
              + @AddSyl.grep(-> $re { $word ~~ $re })
              - @SubSyl.grep(-> $re { $word ~~ $re });

    return max($syl, 1);
}