Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $exp = YAPE::Regex::Explain->new($REx)->explain;

print $exp;

Use of uninitialized value $5 in concatenation (.) or string at line 1
+1.
1=log
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------