Select Code to Download

#!/usr/bin/perl -wl

...
my $regex =  qr/[a-zA-Z][a-zA-Z][a-zA-Z]\d\d,\s+\interlock/;

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

The regular expression:

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