my $search = param('search');
$search =~ tr/_0-9A-Za-z//cd;
$search = qr/\Q$search\E/i; # case insensitive match
for (@users) {
    print $_, '<br/>' if /$search/;
}
# or else:
# print map {($_,'<br/>')} grep {/$search/} @users;