note
graq
<p>Interesting. Testing it a little further, it appears that it is the combination /me causing the problems. Removing just the 'm' to give</p>
<dd><code>$html =~ s/<\?KEYWORD\s+([^\?^>]+)\??>/$self->handle($1)/ge;</code></dd>
<br> does make it 'work'.
<p>However, I need the match to be multiline. Re-introducing the /m option in a loop also makes things work:</p>
<code>
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;
}
</code>
<div class="pmsig"><div class="pmsig-79379">
<p>-=( <a href="http://www.graq.co.uk">Graq</a> )=-</p>
</div></div>
654127
654619