sub translator { $vNombre = $_[0]; $vNombre = lc $vNombre; $vNombre =~ tr/áàèéìíòóùú/aaeeiioouu/; $vNombre =~ tr/ÀÁÈÉÌÍÒÓÙÚ/AAEEIIOOUU/; $vNombre =~ tr/"'/||/d; return $vNombre; } #### if ($vl_read =~ /(.+?)<\/hwAssetUserField3>/){ $vNombre = $1; $vNombre = &translator($vNombre); #### 'galicia vii' it should be "galicia vii" #### centro de apoyo inform├ítico when it should read centro de apoyo informatico.