Select Code to Download

perldoc -f open

The regular expression:
 
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

#!/usr/bin/env perl
use warnings;
...
my $re = '\b[Ii]t\b(.*)[.,?]$';
my $parser = YAPE::Regex::Explain->new($re);
print $parser->explain;