I don't know how it compares to compression, but you can try a base 128 conversion.

#!/usr/bin/perl
use warnings;
use strict;
use Math::BaseCnv;
#fast

my $time = time;
print "time -> $time\n";          

my $time_128 = cnv( $time, 10, 128 );
print "time_128 -> $time_128\n";
#this will sometimes print hidden newlines
exit;
[download]