in reply to Re: Different behavior when parsing $0 on Solaris and Win32
in thread Different behavior when parsing $0 on Solaris and Win32

With this, work fine (note the 's/')

(my $log_file = $0 )=~ s/pl$/log/;