Select Code to Download

use warnings;
use strict;
...

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

 The regular expression:

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