#!/usr/bin/perl
use warnings;
use strict;

use Compress::LZW;

my $input;

while (<>) {
   $input .= $_;
}

if ($0 =~ /decomp/) {
   print decompress($input);
} else {
   print compress($input);
};