Select Code to Download

@ary = $str =~ m/(stuff)/g;

($scalar) = $str =~ m/(this)/;

$str =~ m/(stuff)/;
print $1

@all_the_matches   = $str =~ m/(stuff)/g;

@links = $html =~ m/<a[^>]+href\s*=\s*["']?([^"'> ]+)/ig;

<A CLASS="blah" HREF="foo.com">

$data = '
f1 f2 f3
...

@second = $data =~ m/^\S+\s+(\S+)/mg;
print "@second";