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