eval { $desc =~ /$form{'searchstring'}/i }
die "Invalid search pattern: $@" if $@;