if ( $file =~ /\.bz2\z/ ) {
...
   } elsif ( $file =~ /\.gz\z/ ) {