>perl -MScalar::Util="looks_like_number" -we "print 'WTF' if looks_like_number('0xa.8');"

>