Careful, there are unequal strings that are equal as numbers:

$ perl -e'$c="10e0";$d="1e1";print $c == $d,$/'
1
$ perl -e'$c="10e0";$d="1e1";print $c eq $d,$/'

$ perl -e'$c=10e0;$d=1e1;print $c eq $d,$/'
1
$ perl -e'$c=10e0;$d=1e1;print $c == $d,$/'
1
[download]

I think this question is best solved by redesigning it away.

After Compline,
Zaxo