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

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