$a = "01000";
 $b = 1000;
 print $a eq $b ? 1 : 0;
 > 0
 $a=$a+0;
 print $a eq $b ? 1 : 0;
 > 1