Perl Script to Process Vendor Electronic Data Interchange Messages from XML Based Readouts