my $regexp='\[/.../\]';
use YAPE::Regex::Explain;
my $exp = YAPE::Regex::Explain->new($regexp)->explain;
print $exp;