my $num = '0019';
$num = int $num;