Select Code to Download

sub is_vowel {
    return $_[0] =~ /
...
        \z
    /x;
}

\N{GREEK SMALL LETTER ALPHA WITH PSILI}-
\N{GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA}
...
\N{GREEK SMALL LETTER UPSILON}
\N{GREEK SMALL LETTER OMEGA}-
\N{GREEK SMALL LETTER OMEGA WITH TONOS}

\N{GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI} \N{GREEK SMA
+LL LETTER SIGMA}\N{GREEK SMALL LETTER TAU}\N{GREEK SMALL LETTER OMICR
+ON} \N{GREEK SMALL LETTER DELTA}\N{GREEK SMALL LETTER IOTA}\N{GREEK S
+MALL LETTER ALPHA WITH TONOS}\N{GREEK SMALL LETTER OMICRON}\N{GREEK S
+MALL LETTER LAMDA}\N{GREEK SMALL LETTER OMICRON}

\N{GREEK CAPITAL LETTER ALPHA WITH VARIA}\N{COMBINING GREEK YPOGEGRAMM
+ENI} \N{GREEK CAPITAL LETTER SIGMA}\N{GREEK SMALL LETTER TAU}\N{GREEK
+ SMALL LETTER OMICRON} \N{GREEK CAPITAL LETTER DELTA}\N{GREEK SMALL L
+ETTER IOTA}\N{GREEK SMALL LETTER ALPHA WITH TONOS}\N{GREEK SMALL LETT
+ER OMICRON}\N{GREEK SMALL LETTER LAMDA}\N{GREEK SMALL LETTER OMICRON}

\N{GREEK CAPITAL LETTER ALPHA WITH VARIA}\N{GREEK CAPITAL LETTER IOTA}
+ \N{GREEK CAPITAL LETTER SIGMA}\N{GREEK CAPITAL LETTER TAU}\N{GREEK C
+APITAL LETTER OMICRON} \N{GREEK CAPITAL LETTER DELTA}\N{GREEK CAPITAL
+ LETTER IOTA}\N{GREEK CAPITAL LETTER ALPHA WITH TONOS}\N{GREEK CAPITA
+L LETTER OMICRON}\N{GREEK CAPITAL LETTER LAMDA}\N{GREEK CAPITAL LETTE
+R OMICRON}

use Unicode::Normalize qw(NFD);

...
        \z
    }x; 
}