use strict;

my $Num=12345; my $System=36;

my $String = toString($Num,$System);
print $String."\n";

my $Zahl=parseInt($String,$System);
print $Zahl;


sub toString{
        my $zahl=shift; my $base=shift;
    my $out=""; my $rest;
    my @werte=qw(0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z);

        while ($zahl > 0){
                        $rest=$zahl % $base;
                        $out.=$werte[$rest];
                        $zahl=int($zahl / $base);
                    }

    $out = reverse($out);
        return $out;
}



sub parseInt (){
        my $str=shift; my $base=shift;
        $str=reverse($str); my $val=""; my $back=0; my %wert;
        my @werte=qw(0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z);

        for ( my $x =0 ; $x <=35; $x++) {
                        $wert{$werte[$x]}=$x
                        }

                for ( my $x =0 ; $x <=length($str); $x++) {
                        $val=substr($str,$x,1);
            $back += $wert{$val} * ($base ** $x);
                        }

    return $back;
}