Select Code to Download

#!/usr/bin/perl

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

     input length 1507
compressed length 675

Matched, compression ratio = 55.2%