perl -e "print qr/a/"