Re^2: CarTalk Puzzler

[Perl Mouse]

The trouble with enumerating the result - what if it had been 2,000,000,000,000,000,000,000 instead of 20,000?

2,000,000,000,000,000,000,000 == 2 * 10²¹ == 5 * 4 * 10²⁰ == 5 * (2 * 10¹⁰)².

So, all you need to do is list the squares of all numbers from 1 to sqrt(5) * 2 * 10¹⁰. It'll take a while to list, but you can do it with a one-liner.