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

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

##</code><code>##

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