matejcik - chall1

#!/usr/bin/perl

sub convert {
	my ($number, $base_in, $base_out) = @_;
	my $num = 0, $i = 0;
	@number = split ('', $number);
	foreach (@number) { $_ = ord($_)-ord('a')+10 if ($_ ge 'a'); }
	$num += pop(@number) * ($base_in**$i++) while (@number);
	while ($num) {
		my $rem = $num % $base_out;
		unshift @number,($rem >= 10 and chr($rem-10+ord('a')) or $rem);
		$num = int($num/$base_out);
	}
	return join '', @number;
}

print convert(@ARGV) . "\n";