my $regex = param('foo');
$regex = eval { qr/$regex/ };
if ($@) { "it was bad... handle it" }

##</code><code>##

my $regex = param('foo');
$regex = eval { qr/$regex/ } or do {
  # handle failure
};