my $buffer = 'Das ist ein Text \x0D\x07Test,!#FooBar'; my $zipped_output = ''; my $unzipped_output = ''; # komprimieren use IO::Compress:Zip qw(zip $ZipError); my $status = zip \$buffer => \$zipped_outputor die "zip schlug fehl!: $ZipError\n"; # dekomprimieren use IO::Uncompress::Unzip qw(unzip $UnzipError); my $status = unzip \$buffer => \$unzipped_output or die "unzip schlug fehl: $UnzipError\n";