shell> perl -le '$_="xfoo"; print; substr($_,0,1)=""; print'
xfoo
foo