Hola Guillermo, quizas lo que tengas q hacer es tan solo agregar un '.*-' en el sitio correcto.<br><br>Algo así.<br><br><blockquote>#! C:\bin\perl<br><br>my $var1 = &quot;Systems/1353NM-XX1X/data/eml/usmvW.Y.Z/UsmPrint.pshjnubuknlSystems/1353NM-X2XX/data/eml/usmvW.Y.Z/UsmPrint.psijlihkhugyjfujffSystems/1353NM-X3XX/data/eml/usmvW.Y.Z/UsmPrint.ps&quot;;
<br><br>print &quot;var 1 = $var1;\n\n&quot;;<br><br><span style="font-weight: bold;">$var1 =~ s!Systems/.*-([^/]*).*/UsmPrint.ps!Systems/$1/script/UsmPrint.ps!;</span><br style="font-weight: bold;"><br>print &quot;new var 1 = $var1;\n&quot;;
<br></blockquote><br>Saludos.<br><br clear="all"><br>-- <br>&nbsp;&nbsp; ..:: Francisco Ugarte Rivas ::..<br> Estudiante de Ing de Computación<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Webmaster USB<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Universidad Simón Bolívar<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;+58-0412-7196800