perl -e '$badxml = `cat /mmf/log/BadXMLXact*`; $badxml =~  /21-digit-number(.|\n)+/; $& =~ m/\*\*\*.*UID/; $output =  $`; for ($output ) { s/\s{3,}/\n/g; } print $output;'