/abc/ and print for @mydata;
[download]

If you want to print the whole line whenyou get a hit, your /g modifier serves no purpose.

$_ =~ /abc/ is doing the same as /abc/. If your going to use $_, you might as well make full use of it:)

Thanks but for some reason it prints out the whole page when I get a hit and not just each line that I get a hit on.

my $content = get($url);  
/abc/ and print for $content;
[download]

That's because you have the whole page stored as a single line. In your original post you showed an array. Try

my @content = split /\n/, get($url);

/abc/ and print for @content;
[download]

But note: What will be considered a "line" in html source bears no realationship to the "lines" that appear on the screen in your browser.

---

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
Timing (and a little luck) are everything!

No need to split $content up into separate lines first. Try something like:

my $content = get($url);
print $content =~ /^(.*abc.*\n)/m;
[download]

(If you don't need $content for anything else, you can just put the get($url) in its place on the print line.)

for ( @mydata ) {
  print if /abc/;
}
[download]

use strict;
use warnings;
use Data::Dumper;

my @mydata = qw/ abcd cabc abcdabcd defg xyz /;

for(@mydata)
{
    if($_ =~ /abc/g)
    {
        print "$_\n";  #print the line
    }
}
[download]

abcd
cabc
abcdabcd
[download]

I believe these are notoriously inefficient and should be avoided. Allegedly using some of these causes them to be calculated for the whole program, slowing down every regex whether you need the variables or not. Sorry, I forgot the source where that info came from.

The code posted above is functional for the task (it can be refactored a small bit), he just needs to load up @data differently.