my $daten_bytes_von_smtp = .....;
my $output_bytes = undef;
open (my $IN, '<', \$daten_bytes_von_smtp) or ...;
open (my $OUT, '>', \$output_bytes) or ...;
....;
....parse(\*IN,\*OUT);