use constant COLUMNS => [qw(Consign ISBN Price Title Author Subject)];

my $regex = join '|', @{COLUMNS()};

my ($search) = $q->param('search') =~ /^${regex}$/;
die 'Bad search criteria' unless defined $search;