use YAPE::Regex::Explain; my $re = q{(?new($re)->explain(); __END__ The regular expression: (?-imsx:(?