Data Munging with Perl