I'd do it like this:

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