lol... that thing is great!

I ran a diff with the output from the bash script and your perl script and both outputs are identical. Just timed it too - on my original list of (now) 1,480 IP addresses, your perl script took ~150ms to run... well done! :)