### Search through the users
 foreach $user (@list) {

  if(param('search') =~ /$user/) {
    print "$user<br>";
  }
 }