my $format = "foo (bar] baz"; 
eval { qr/$format/ };
die "ack - $@" if $@;