>perl -le "print 0+(-Infinity)" 0 >perl -le "print 0+('Infinity')" 0