#!/usr/bin/perl my $hold=''; my $leave = ''; my $munge = '';