my $regexp = <$file_handle>;
my $creg   = eval { qr($regexp) };

if( $@ ) {
   warn "regex error: $@";

} else {
   if( $something =~ $creg ) {
      # do wonderful things.
   }
}