$string =~ s/^.//s;
This will also work: substr ($string, 0, 1) = '';