#!/usr/bin/perl
use strict;
use CGI;
use YAPE::Regex::Explain;

my $cgi = CGI->new();
die unless $cgi->param('regex'); 
my $regex = $cgi->param('regex');

print $cgi->header('text/plain');
print YAPE::Regex::Explain->new(qr/$regex/)->explain;