shell> perl -le '$_="xfoo"; print; s/^.//; print'
xfoo
foo