Select Code to Download

#!/usr/bin/perl

...
  print "----------------------------------------failed\n";
  use Data::Dump 'dd'; dd $_ for $restored =~ /.*\n?/g;
  }

     input length 1512
compressed length 557

Matched, compression ratio = 63.2%