Perl 一句正则表达式 实现RLE压缩算法的 压缩解压 -- 吹过牛皮之后才发现没有压缩版

前文中提到要用PERL的一个正则表达式语句实现RLE 的压缩解压, 却只发了一个解压的.
这里是压缩版:
sub rle_compress_re
{
    my $data = shift;
    $$data =~ s{
      #un-repeated byte, up to 128 bytes
      \G(  (?:  (\C)(?!\2)  ){1,128})   |
      #repeated byte, up to 129 bytes
      \G(  (?:  (\C)(?=\4)  ){1,128}\4)
    }
    {
      defined($1)
      ? chr( length($1)-1 )  . $1
      : chr(257-length($3) ) . substr($3,0,1);
    }gosex;


}
一样的gosex, 一样的NB.

测试:
#!/usr/bin/perl -w
#============= 测试 Perl的正则表达式实现RLE压缩解压 ==========
#将第一个参数所代表的文件名, 一下全读到变量 $data中.
open(FILE, "<$ARGV[0]"); binmode(FILE);
undef $/;
$data = ;
close(FILE);

system("md5sum $ARGV[0]");

#RLE 压缩
rle_compress_re( \$data ); #传递变量的引用, 提高效率
#RLE 解压, 为防止负负得正这种以错纠错的行为, 解压要使用非正则表达式, 甚至非
#PERL的版本来验证.
rle_uncompress_re( \$data ); #传递变量的引用, 提高效率

open(FILE, ">output.dat"); binmode(FILE);
print FILE $data;
close(FILE);
system("md5sum output.dat"); #行不行就看这个MD5 和跟前面的那个是否一样了