sub IsVowel {<<"EOT"}
041
045
049
04F
055
061
065
069
06F
075
EOT

"A" =~ /\p{IsVowel};  # Matches
"B" =~ /\p{IsVowel};  # Does not match.