Select Code to Download

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

my $i = 0;
for (@$msg) {
...
  }
  ++$i;
}