>>132
use Compress::Zlib qw(compress decompress);

$gz = compress($plaintext);
$plaintext = decompress($gz);

>>133
Cコンパイラがあれば動くかもね。