use YAPE::Regex::Explain;
my $r=YAPE::Regex::Explain->new(qr/^[\w @.]/);   
print $r->explain();