use warnings; use strict; use YAPE::Regex::Explain; my $re = '"(.*?)" "(((\\")|[^"])*)"'; print YAPE::Regex::Explain->new($re)->explain;