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