I wonder if an awk/perl script for this would be easier to manage.