$vorkomma = substr ($vorkomma,1) while $vorkomma =~ /^0/ && length ($vorkomma) > 1;