#!/usr/bin/perl -w $vogal = "[aeiouáéíóúàèìòùäëïöüâêîôûÁÉÍÓÚÀÈÌÒÙÄËÏÓÜÂÊÎÔÔÛ]" ; $cons = "[bcçÇdfghkjlmnpqrstvwxyz]" ; $contarVogal = 0; $contarCons = 0; $contarLetra = 0; while ($caracter = ) { chomp $caracter; if ($caracter =~ m/$vogal/i) { $contarVogal++; $contarLetra++; } if ($caracter =~ m/$cons/i) { $contarCons++; $contarLetra++; } } print "vogais: $contarVogal\n;"; print "consoantes: $contarCons\n;"; print "Total: $contarLetra\n;";