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

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

##</code><code>##

my $a="99";
my $b="111";
if ($a gt $b)
{print "$a is greater than $b";}
#prints 99 is greater than 111