substr (\$_,0,1)=~ s/[$ignorefirst]//;