Have you tried numeric comparison? Is that what you want?

my ($s1, $s2) = qw(20055 020055);
print(($s1 == $s2) ? "equal\n" : "not equal\n");
[download]

If you want to strip leading zeroes:

s/^0*//;
[download]