use warnings;
use strict;

use YAPE::Regex::Explain;

my $REx = qr/((?:(?:[^\n@]+|@[^@]*@)\n?)+)/s;

print YAPE::Regex::Explain->new($REx)->explain;