#!/usr/bin/env perl
use warnings;
use strict;
use YAPE::Regex::Explain;

my $re = '\b[Ii]t\b(.*)[.,?]$';
my $parser = YAPE::Regex::Explain->new($re);
print $parser->explain;