if ( $file !~    # scalar $file tested for not matching
          /\.tar     # an ending of .tar
                  (\.gz)?   # followed by an optional .gz
                       $    # at the end of the name
               /x)