use strict; use warnings; sub main { my $path = "\\\\127.0.0.1\\c\$\\bak\\"; $path =~ s/\\$//; print __FILE__.__LINE__." path $path\n"; return; } main();