my $re = qr/some(thing)?/;
print ref $re;