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

}
main();

##</code><code>##

use strict;
use warnings;

my $path = <<'EOT';
\\127.0.0.1\c$\bak\
EOT
$path =~ s/\\$//;
printf "%s %s path %s\n", __FILE__, __LINE__, $path;