- or download this
use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(qr/\s(.:.+?)/ )->explain;
__END__
...
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------
- or download this
$ perl -le"my $f = q!a b c d ee!; print substr $f, 1+rindex $f, q! !"
ee