http://perldoc.perl.org/perlop.html#<<EOF-here-doc-heredoc-here-document-<<
| If the terminating identifier is on the last line of the program, you must be
| sure there is a newline after it; otherwise, Perl will give the warning Can't
| find string terminator "END" anywhere before EOF....
--
水-金-地-火-木-土-天-海-冥
水-金-地-火-木-土-天-海-冥