$a =~ s/.//s;          # Remove leading char with no copying.
substr($a, 0, 1, '');  # Remove leading char with no copying.