perl -we '$x="j::/tmp/lz/ncak.030610.141654";$x=~/.+\// && print $'\'

##</code><code>##

perl -le '$_="abc";/b/;print $'\'
                             |  ^--- the single quote part of $'
                             +--- the dollar part of $'

##</code><code>##

perl -le '$_="abc";/b/;print $'\'';print "more"'