$str1 = "01";                                
$str2 = "1";
print "equal as numbers\n" if ($str1 == $str2);
print "equal as strings\n" if ($str1 eq $str2);