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