(my $me = $0) =~ s#.*[\/|\\]##;
把所有 /或者\ 前面(包括/或者\)的字符去掉
(my $mePref = $me) =~ s#(.*).pl#$1#;
表示去掉.pl后缀名。
在s///操作符中,可以用#、!等来作为分隔符。
(my $mePref = $me) =~ s#(.*).pl#$1#;
也可以写为(my $mePref = $me) =~ s/(.*).pl/$1/;
$me是用来控制该脚本在cmd中运行,而不是在cygwin中运行。是这个意思。