eval { qr/pattern/ };
die "Patternfehler!" if $@;