@$msg = grep {(m/\QContent-Transfer-Encoding: 7bit\E/i .. /^\s*$/) ne '2E0'} @$msg;