perl 行内を文字検索

Perlでテキストファイル内の検索文字列がある行数を求めるには - 燈明日記
◆サンプル
use strict; use warnings; use utf8; binmode STDOUT, ':encoding(shiftjis)'; my $strText = << "END_OF_TEXT"; 1234567890 ABCDEFGHIJ 1234567890 ABCDEFGHIJ 12小池啓仁AB 1234567890 ABCDEFGHIJ END_OF_TEXT my $linecnt; if ($strText =~ /小池啓仁/) { $linecnt = scalar(() = ($` =~ /\n/g)) + 1; print "検索文字『小池啓仁』にヒットした行数:$linecnt\n"; }