Select Code to Download

my $MAX = 100;
while( $html =~ m/<\?KEYWORD\s+([^\?^>]+)\??>/m )
...
  $html =~ s/<\?KEYWORD\s+([^\?^>]+)\??>/$ssi_html/m;
  last if $MAX++ > 100; 
}