$ID =~ s/.//s;   # No s modifier needed if the first char won't be a newline

##</code><code>##

    substr ($ID, 0, 1) = "";  # Or substr $ID, 0, 1, "";

##</code><code>##

    $ID = reverse $ID;
    chop $ID;
    $ID = reverse $ID;

##</code><code>##

    $ID =~ /./s;
    $ID = $';