#!/usr/bin/perl -wl

use YAPE::Regex::Explain;

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

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