Select Code to Download

use YAPE::Regex::Explain;

...

print YAPE::Regex::Explain->new($regex)->explain;

__OUTPUT__

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

export PS1="\[\033[1;37m\](\[\033[1;32m\]`uname -n`\[\033[1;37m\])\[\0
+33[1;36m\]\$PWD\[\033[1;37m\]>\[\033[0m\] "

...
#   ...
#   \[\033[0m\]     => set colour back to normal