まず、以下のソースを見てください。 use strict; use warnings; while (<DATA>) { if (/^h.*e$/) { print; # hogeを表示する } } __END__ hoge foo Perl初心者や他言語から来た人が･･･実はかつての自分が、このソースを見た時に？？？のオンパレードでした。 これ</data>…