while ($line =~ /($word)/g){