$ perl -le 'print ref qr/foo/'
Regexp