while (my @row = map { s/$term/"<i>$term<\/i>"/; $_ } $sth->fetchrow_array()) {