DB<65> $num1 = '0019.90'; $num2 = '019.9'

 DB<66> p $num1+0 eq $num2+0
1

 DB<67> p "$num1" == "$num2"
1

 DB<68>

##</code><code>##

  DB<109> printf "%.20f\n",$_ for $a,$b
2547200.00000000000000000000
2547199.99999999950000000000

  DB<110> p +$a eq +$b                           # unary +
1
                                                                                
  DB<111> p $a == $b                             # doesn't work


  DB<112> p "$a" == "$b"                         # preferred variant
1