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