四本目 HelloHellWorld→HELLO_HELL_WORLD
str =####ここから %Q{HelloWorld ThisIsTestPattern TestMethod }###ここまで str.each do |line| word = line /[A-Z][a-z]*/ =~ word while /[A-Z][a-z]*/ =~ word do print $&.upcase! if $'.chomp.length > 0 then print '_' end word = $' end print "\n" end