my $re = eval "no re; qr/\$pat/$flags";