1 2 3 4 5
# PERL TERNARY OPERATOR $var= "AC9"; my $voc = ($var=~/[AEIOU]/ ? 1 : 0); print "$var $voc\n";
1
AC9 1