use warnings; use strict; use YAPE::Regex::Explain; my $re = '(.+?)<\/a>(.+?)<\/b><\/container>(<\?query\?>)??'; print YAPE::Regex::Explain->new($re)->explain;