$ perl -e 'my $regexStr = qr{[0-9]+};
print "$regexStr\n";
print ref($regexStr), "\n";
'
(?^:[0-9]+)
Regexp