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