title: How to get only specific lines from web page content in Perl
body: <p>I am using below code to get web page content.  It's working fine, but I want to get specific lines out of that.  Any help is greatly appreciated.</p>
  
  <pre><code>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";
  }
  </code></pre>