Use substr in the 4 arg form as shown above or in the 2 arg form:

    $str = substr $str, 1;


    # Or in case the string is empty

    $str = substr $str, 1 if length $str;
[download]

--
John.