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

my $a="0E0";
my $b ="00000035";
print "A as string=$a\n";
$a +=0;
print "A as numeric=$a\n";
$b +=0;
print "B=$b leading zeroes deleted\n";

# prints
# A as string=0E0
# A as numeric=0
# B=35 leading zeroes deleted