use strict; use warnings; use YAPE::Regex::Explain; print YAPE::Regex::Explain->new(qr/^(?explain; #### The regular expression: (?-imsx:^(?