Select Code to Download

print $_ if $_ =~ /whatever/;
#or, since regexps default to use $_
print $_ if /whatever/;

for($i = 0; $i < @lines; $i++) {
  print $lines[$i] if $lines[$i] =~ /whatever/;
...
  print $i if /whatever/;
  $i++;
}