Select Code to Download

Select or download this

use Compress::LZF;
use Compress::LZF_PP;
...
my $uncompressed = Compress::LZF_PP::decompress($compressed);
print STDERR "----------------------------------";
print STDERR $uncompressed;

Select or download this

 
A123456789 123456789 123456789 123456789 123456789 123456789
B123456789 123456789 123456789 123456789 123456789 123456789
----------------------------------
A123456789 123456789 123456789 123456789 123456789 123456789
B6789 123456789 123456789 123456789 123456789 1234A123456789