Re: Why I can't remove trailing slash

[daxim]

You neglect to call main. The escaping notation is broken, you specified $path to have the literal string \\127.0.0.1\ak\. Better use single quotes:

my $path = '\\\\127.0.0.1\\c$\\bak\\';

or avoid nasty backslash escaping with heredoc:

my $path = <<'UNC';
\\127.0.0.1\c$\bak\
UNC
chomp $path;