regex on the fly on LWP

hi all
I want to know if there is a way of puilling out line by line, a
www::Mechanize or LWP

so at the moment I'm doing:




 1 #!/usr/bin/perl
      2
      3 # Include the WWW::Mechanize module
      4 use WWW::Mechanize;
      5
      6
      7 HTTP::Response;
      8

     15
     16 $url = "http://whatever.com/";
     17
     18
     20 print "\n $url \n";
     21
     22 # Create a new instance of WWW::Mechanize
     23 # enabling autoheck checks each request to ensure it was successful,
     24 # producing an error if not.
     25 my $mechanize = WWW::Mechanize->new(autocheck => 1);
     26
     27 # Retrieve the page
     28 $mechanize->get($url);
     29
     30 # Assign the page content to $page
     31 my $page = $mechanize->content;
     32
     33 # Output the page
     34 print $page;




so what I'm trying to do is do a regex on each line as I suck it in,
and then print out the line, so I don't have to do a regex on a file.

so i would do a regex $page and what ever line would have the regex in
would print it out.

Any Ideas

Thanks
Pat