perl -le '$g="test";substr($g,0,1)="";print $g'
est