Select Code to Download

sub scan_mail {
  my $mailref = shift;
...
  $$mailref =~ s/\012\./\012\.\./g; # byte-stuff
  
}