Select Code to Download

$i = 0;
while ($html =~ m/</g) {
...
  # if $i = 1, $temp = everything from < to the next >
  # if $i > 1, do action to get rid of nested loop.  
}

$i = 0;
while ($html =~ m/</g) {
  if ($_ =~ m/$1s/ {$i++;}
...
  if ($i = 1) {$temp = everything from < to the next > }
  if ($i > 1) {do action to get rid of nested loop}
  }