#!/usr/bin/perl -w
use strict;

my $num="000123";
print "$num\n";
$num += 0;
print "$num\n";
_END_
prints:
000123
123