Help for this page

Select Code to Download


  1. or download this
    my $format = "foo (bar] baz"; 
eval '$regex = qr/$format/;'; 
die "ack - $@" if $@;
  2. or download this
    my $format = "foo (bar] baz"; 
eval { qr/$format/ };
die "ack - $@" if $@;