perl -E " say 'OK' if 'text' =~ qr//"
OK