use YAPE::Regex::Explain;

print YAPE::Regex::Explain->new(qr/(^USA|BRA|CAN)?(.*?)(XY)?$/)->explain();