my ($s1, $s2) = qw(20055 020055); print(($s1 == $s2) ? "equal\n" : "not equal\n"); #### s/^0*//;