C:>perl -E "print 'Enter a char: '; my $char = <>; print $char; print $char =~ /[AEIOU]/i ? 'char is a vowel' : 'char is not a vowel';"
Enter a char: v
v
char is not a vowel
C:>perl -E "print 'Enter a char: '; my $char = <>; print $char; print $char =~ /[AEIOU]/i ? 'char is a vowel' : 'char is not a vowel';"
Enter a char: E
E
char is a vowel
C:>