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