next unless $file =~ /\.t(?:ar\.)?gz\z/);
# it should be
next unless ($file =~ /\.t(?:ar\.)?gz\z/);