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