Two cents here.

You are calling param over and over, and that's insane... erm! cpu consuming! Consider putting a my $search = param('search') just before the loop.

Second: a case insensitive pattern matching is... well, FAQ is an euphemism!!! RTFM!

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}