$ perl -le'$_="abc"; print /(.)/;'
a

$ perl -le'$_="abc"; print qr/(.)/;'
(?-xism:(.))