use Modern::Perl;
use YAPE::Regex::Explain;
my $fieldname = 'SomeTag';
say YAPE::Regex::Explain->new(qr|<$fieldname>(.*?)</$fieldname>|i)->explain();