Help for this page

Select Code to Download

Select or download this
my @result = split /($query)/, $source;

Select or download this

my ($extra, $tag_it) = (0, 0);
my $output = "";

...
        for join "<br />\n", @line;
    $tag_it = not $tag_it;
}