Select Code to Download

#! perl
use strict;
use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(shift)->explain;

tilly@localhost:~$ perl re-explain foo    
The regular expression:
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------