QWB5ON4DXW4KJ55CXYKD5UKTUTXO2ZBWNQWOATUPO2DYRW632BBAC
3466DZDE3UMZNIHAJDDOWUQQYRYWB45TQVIMMTXZXG4DJLZH7DNQC
TH674WKJECNZ4K22DZ2N4SF53UGKG2BQRGBSNESRPDRSRND6TZHAC
BKOIYITRBRVU4D7XFAZPV5QHAPCBMIO3SBNHYJ6TVT43WR32CTHQC
my $pipe = (-f "$file.bz2" ? "cat $file | bzip2 -d" : "cat $file") ;