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

__output__

ack - Unmatched ( before HERE mark in regex m/foo ( << HERE bar] baz/ at (eval 1) line 1.