[perldoc]text[perldoc]
(also nicht: [perldoc=attribute]text[/perldoc]

#! /usr/bin/perl
use warnings;
use strict;

use vars qw(@TagsBlocked);
@TagsBlocked = qw(perle codex perldocy);

&#36/ = undef;
my &#36posting = <DATA>;

&ParseText(&#36posting);
# ------------------------------------------------------------
sub ParseText {
    my (&#36text) = @_;

    my @scanned = ();

    foreach my &#36tag (@TagsBlocked) { # @scanned yet empty, start with &#36text
        unless (scalar (@scanned)) {
            @scanned = &PostFilterBlocked(&#36text, &#36tag);
        } # unless

        # @scanned filled, start scanning the rest
        else {
            my @scanned2 = (); # temporary variable
            foreach (@scanned) {
               
               
 # skip already scanned parts               
                push(@scanned2, &#36_), next if ref(&#36_); 

               
                # scan only if scalar
                push (@scanned2, &PostFilterBlocked(&#36_, &#36tag));

            } # foreach
            @scanned = @scanned2;
        } # else

    } # foreach

    use Data::Dumper;
    print "

", Dumper(\@scanned);

} # ParseText
# ------------------------------------------------------------
sub PostFilterBlocked {
    my (&#36text, &#36tag) = @_;

    my &#36startLength = length("[&#36tag]");
    my &#36endLength   = length("[/&#36tag]");

    my @scanned = ();
    
    my &#36startPos = index(&#36text, "[&#36tag]");
    my &#36lastPos = 0;
    
    print "
Scanning for tag [&#36tag]";
    while (&#36startPos != -1) {
        print " &#36startPos";

        # add leading part to @scanned
        my &#36string = substr(&#36text, &#36lastPos, &#36startPos-&#36lastPos);
        push (@scanned, &#36string) if length &#36string;
        
        # check if [&#36tag]...[/&#36tag]-block found
        &#36lastPos = index(&#36text, "[/&#36tag]", &#36startPos+&#36startLength);
        print "-&#36lastPos";
        unless (&#36lastPos == -1) { # if found

            # push reference to @scanned: { &#36tag => &#36string }
            my &#36string = substr(&#36text, &#36startPos+&#36startLength, 
                                &#36lastPos-&#36startPos-&#36startLength);
            push (@scanned, {&#36tag => &#36string}) if length &#36string;

        } # if

        else { # if not found

            # push rest of &#36text to @scanned (as string)
            my &#36string = substr(&#36text, &#36startPos, -1);

            # if last line was in @TagsBlocked, add new array element
            if (ref &#36scanned[-1]) {
               
 push (@scanned, &#36string) if length &#36string;
            }

            # if not, append as text to the last element
            else {
               
 &#36scanned[-1] .= &#36string;
            } # else

            last; # and exit while

        } # else

        # (re-)initialize next search position
        &#36lastPos += &#36endLength; 

        # search for next [tag]
        &#36startPos = index(&#36text, "[&#36tag]", &#36lastPos);

    } # while

    # care for rest of &#36text
    if (&#36lastPos != -1) {
        my &#36string = substr(&#36text, &#36lastPos, -1);
        push (@scanned, &#36string) if length(&#36string);
    } # if

    return @scanned;
} # PostFilterBlocked
# ------------------------------------------------------------

Hallo Leute,

das ist mein erstes Posting:
[perldocy]CGI[/perldocy]
[perle]
#! /usr/bin/perl
use warnings;
use strict;
use CGI ();
my &#36cgi = CGI->new();
[/perle]
und das ist was anderes:
[perldocy]CGI[/perldocy]
[perle]
#! /usr/bin/perl
use warnings;
use strict;
use CGI ();
my &#36cgi = CGI->new();
my &#36string = "[perldocy]CGI[/perldocy]";
[/perle]
normaltext
[codex]
#! /usr/bin/perl
use warnings;
use strict;
use CGI ();
my &#36cgi = CGI->new();
[/codex]
[perle] this is perl without finishing tag
[codex]
#! /usr/bin/perl
[/codex]