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