Select Code to Download

my $match = 0;
my $result;
...
  if(/Match String/) { $match = 1 }
  elsif($match && /something/) { $reult = $1; last; }
}

my $result;
map { if(/something)/) { $result = $1 } } split /\n/, $content;