use Scalar::Util qw/blessed/;
$q=qr//;
print ref($q);
print blessed($q);
__END__
Regexp
Regexp