use warnings;
use strict;
use YAPE::Regex::Explain;

my $re = '^([^{};]+[{};])(\s*\S+.*)$';
print YAPE::Regex::Explain->new($re)->explain();