laptop:~> perl -MCompress::LZW -lne 'print " -> ", compress($_), " / $_ == ", length(compress($_))/length($_);'
a
 -> a / a == 2
aaa
 -> a / aaa == 1.33333333333333
aaaaaaaaaaaaaa
 -> a / aaaaaaaaaaaaaa == 0.714285714285714
qwre1qwre2qwer3
 -> qwre12er3 / qwre1qwre2qwer3 == 1.6
qwertgfdsazxcv
 -> qwertgfdsazxcv / qwertgfdsazxcv == 2
^D