in reply to Regex to check for very large negative numbers
m/-\d{30,}\.\d*/ maybe?
Though maybe you should really use the same regex for all the numbers, and then decides using a normal < comparison if the number is too small?
In Section
Seekers of Perl Wisdom