$isBz2 = ($fileName =~ /\.bz2$/) ? 1 : 0 ;
...
        while (index($line, 'node') >= 0) { ...