#!/usr/bin/perl
$x = 10;
$y = 0010;
$y =~ s/^0+//;
##OR $y += 0;

if($x == $y)	{
	print $x . " and " . $y . " are equal\n";
}
else	{
	print $x . " and " . $y . " aren't equal\n";
}