Select Code to Download

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
...
E
char is a vowel
C:>