I know that this is a Perl neighborhood, but this is exactly the sort of task that might be handled very well by awk. There are many tools in the toolbox.