my $re = eval { qr/$x/ };
if ($@) { ... }
else { $string =~ $re }