Write it in Perl, or just use a bash file and call it through perl.

I don't think this is a hard job to do in perl.

You'll have to read tow files and output them in 1 file... and this has been done many times before over here ... use the search button in the top of the site to look that up