#!/usr/bin/perl

use strict;
use Tk;
use Parse::RecDescent;

my $mw = new MainWindow;
my $mw2 = $mw->Text()->pack();
my $mw3 = $mw->Button(-text=>"Check brackets",
                      -command => [ \&parser, $mw2 ]
                      )->pack();
MainLoop;

sub parser {
    my $txt = shift;
    my $grammar = q {
startrule: open text close { print "\n$item[2] " }

open: "<"

text: /([^>]*)/

close: ">"
};
    my $parser = Parse::RecDescent->new($grammar);
    if ( defined( $parser->startrule( $txt->get( "1.0", "end" )))) {
        print "NO ERROR\n";
    } else {
        print "TEXT COULD NOT BE PARSED\n";
    }
}

##</code><code>##

<tag>        # example 1

<>           # example 2

<<<<<>       # example 3

  <!@#$%^&*(){}[] |`~'"> # example 4

<outer 
   <nested tag>
       tag> extra text.  # example 5