Help for this page

Select Code to Download

Select or download this

my $class = 'Temp(a?)';
my $re = qr/test/io;
my $regex = bless $re, $class;

print "Verbatim: $regex\n";
print "Ref: ", ref($regex), "\n";

Select or download this

my $re = qr/(test)/io;
print "Verbatim: $re\n";
print "Ref: ", ref($re), "\n";