Поясняю более детально<br>на момент выполнения<br>$a =~ &nbsp;s#\\#/#g;<b><br></b>У Вас уже нет обратного слеша<b><br></b> my $a = &quot;image\02-0-0-1.gif&quot;;<br>$a = join &quot;&nbsp;&nbsp; &quot;, split &#39;&#39;, $a;<br>print &quot;$a\n&quot;;<br>
<br>