eval ($re=qr/foobar/) || warn $@;