perl - Perl で Web ページのコンテンツから特定の行だけを取得する方法

Question

以下のコードを使用して Web ページのコンテンツを取得しています。正常に動作していますが、そこから特定の行を取得したいと考えています。どんな助けでも大歓迎です。

use strict;
use warnings;
use LWP::Simple;

my $content = get('http://www.w3schools.com/');
print $content;
my @arr;
my $flag = 0;
push (@arr, $content);
#print @arr;

my $find = "HTML 4.01";
for (@arr)
{
  if ($_ =~ /$find/) 
  {
    print "$_\n";
    print "passed\n";
    $flag = 1;
  }
}

if ($flag == 1)
{
  print "Testcase passed";
}
else
{  
  die "Testcases fails";
}

Answer 1

getコンテンツ全体を単一の値として取得します。行ごとに処理したい場合は、split最初に行末に.

use strict;
use warnings;
use LWP::Simple qw(get);

for my $line (split qr/\R/, get('http://www.w3schools.com/')) {
    print $line if $line =~ /\QHTML 4.01/;
}