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