Perl一段奇怪的begin语句，请问是啥意思，干啥的？
BEGIN
{
($_ = $0) =~ tr,\\,/,;
s,^(\./)*,,;
$_ = '.' unless (s,^(.*)/.*$,$1,);
push @INC, "$_/lib";
push @INC, "$_/extLib";
}
后两个push我知道，就是加入包含路径
前边3行是要干吗？
谢谢
[解决办法]
貌似：
1、将\替换为/
2、删除以./开头的字符串
3、提取路径名，如果没有就用 . 作为路径名
