Just change

  if ($line =~ /$search/){
[download]

to

  if ($line =~ /\Q$search\E/i){
[download]

i modifier makes search case-insensitive and \Q and \E prevents fails on some symbols in the category parameter.

-- Yuriy Syrota