Select Code to Download

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

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

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

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