#!/bin/sh
perl -p -i.bak -e 'if(/^Received: /) { $f = 1; s/^.*\n//; } elsif($f && /^\t/) { s/^.*\n//; } else { $f = 0; }' $*