I apologize. The code I wrote while with the ISP in the early days of IPv6 is protected by IP rights (before I forced an agreement that what code I wrote I could open-source), so I can't share it (it's much more efficient than what you're doing here, but it is still pretty clunky).

I don't have the time to play around right now, so what I can recommend is sipcalc command line utility. eg:

You can dump the output of that to a file, then write Perl code to read and manipulate it afterwards.