

sub symbify {
    $_[0] =~ s/n~/ñ/;
    $_[0] =~ s/a'/á/;
    $_[0] =~ s/e'/é/;
    $_[0] =~ s/i'/í/;
    $_[0] =~ s/o'/ó/;
    $_[0] =~ s/u'/ú/;
    $_[0] =~ s/N~/Ñ/;
    $_[0] =~ s/A'/Á/;
    $_[0] =~ s/E'/É/;
    $_[0] =~ s/I'/Í/;
    $_[0] =~ s/O'/Ó/;
    $_[0] =~ s/U'/Ú/;
}

1;
