use Math::BaseCnv;

my $your_number = 55;

# cnv( THE-NUMBER, OLD-BASE, NEW-BASE );
my $new_number = cnv( $your_number, 10, 3 );

# $new_number becomes 2001
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.