use YAPE::Regex::Explain;

$regex = qr/.*([\$#\%>~]|\@\w~\$|\\\[\\e\[0m\\\] \[0m)\s?/;

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