in reply to regular expression for workdir

TIMTOWTDI :-)

print ((split q|/|,$path)[-1]);

[download]

regards

turo

perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'

In Section Seekers of Perl Wisdom