#!/usr/bin/perl

chomp(my $i = <>); #input
if($i =~ /[a-z]{1}/i){ #regexp que verifica se eh UMA letra
   if ($i =~ /[aeiou]/i){ #regexp para vogal
      print "Vogal\n";
   }
   else { #se eh uma letra e nao eh vogal, entao eh consoante
      print "Consoante!\n";
   }
}
else { #ops, alguem digitou mais de uma letra ou algo que nao eh letra
   print "Digite apenas uma letra :)\n";
}