#!/usr/bin/env perl
use strict;
die "Usese asi:\n$0 palabra\n" until $ARGV[0];
my @letras = qw(a b c d e f g h i j k l m n ñ o p q r s t u v w x y z);
my @mayu = qw(A B C D E F G H I J K L M N Ñ O P Q R S T U V W X Y Z);
my $palabra;
foreach my $letra (split "", $ARGV[0]){
for (my $i = 0; $i < $#mayu; $i++){
$letra =~ s/$letras[$i]/$mayu[$i]/eg;
}
$palabra = "$palabra$letra";
}
print "$palabra\n";