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`;