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