use POSIX;
my ($num, $n_unparsed) = POSIX::strtol('42', 13);
print "$num\n"; # prints "54"