my @colors = $file[$lineno] =~ /\b$word\s*(\w+)/g;