){
$fname = join('',@{$p->{'headers'}->{'content-id'}});
$fname =~ s/[<>]//g;
$fname =~ tr/\@\$\%\&/_/s;
$fname =~ tr/\@\$\%\&\./_/s;
}
my $filename = $fname; $filename =~ tr{a-zA-Z0-9\-.}{_}cs;