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

  }

##</code><code>##

if ($vl_read =~ /<hwAssetUserField3 type="attrib">(.+?)<\/hwAssetUserField3>/){
	                      $vNombre = $1;
	                      $vNombre = &translator($vNombre);

##</code><code>##

&apos;galicia vii&apos; 
it should be "galicia vii"

##</code><code>##

centro de apoyo inform&#9500;ítico when it should read centro de apoyo informatico.