double regexp "foobar" v2

gistfile1.txt

# -*- coding: utf-8 -*-

# fooが頭に無いbarをファイルに出力する 2.2

array = ["foo","bar","baz","hoge"]

file_name = "./hoge.txt"
f = File.open file_name,"a+"

array.each do |head|
  array.each do |middle|
    array.each do |foot|
      str = head + middle +  foot

      if !(str =~ /foobar/) && (str =~ /bar/)
        f.puts str
      end

    end
  end
end

f.close