if( ref $regex eq ref qr// ) { ... }