sub translator {                             										
  	$vNombre = $_[0];
        $vNombre = lc $vNombre;
        $vNombre =~ tr/áàèéìíòóùú/aaeeiioouu/;
        $vNombre =~ tr/ÀÁÈÉÌÍÒÓÙÚ/AAEEIIOOUU/;
        $vNombre =~ tr/"'/||/d;
        return $vNombre;

  }