Perl script to parse Tribune Media Services XML Database file to tab-delimited text file