substr can be used to assign a null value to the location you want erased. e.g.:

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