use warnings;
use strict;
use YAPE::Regex::Explain;
my $re = '[\w().-]*\(?([\w.-])?\)?\s*->\s$';
print YAPE::Regex::Explain->new($re)->explain();

__END__