http://www.perlmonks.org?node_id=985303


in reply to Re: Question on Strawberry's Portable .bat file
in thread Question on Strawberry's Portable .bat file

if( '$##$' eq '$#'. substr( $ENV{drive}, -1 ) .'#$') { $ENV{drivep} = substr($ENV{drive} ,0,-1); }

In Section Seekers of Perl Wisdom