use strict;
use warnings;
use YAPE::Regex::Explain;

my $regex1 = qr{\QHello# World\E}x;
my $parser1 = YAPE::Regex::Explain->new($regex1)->explain;
print "$parser1\n";

print "*" x 20;
print "\n";

my $regex2 = qr{Hello\#\ World}x;
my $parser2 = YAPE::Regex::Explain->new($regex2)->explain;
print "$parser2\n";