while ( <$client> ) {
  next unless /\S/;       # blank line
  if    (/quit|exit/i)    { last; }
  elsif (/microsoft/i)    {foreach $command(@commands) {
                           print $client "$command\r";
                              }
                           }
  else                     { last; }
  } continue {
  }

##</code><code>##

while ( <$client> ) {
  next unless /\S/;       # blank line
  if    (/quit|exit/i)    { last; }
  elsif (/microsoft/i)    {foreach $command(@commands) {
                           print $client "$command\r";
                           while( <$client> ) { print;}
                              }
                           }
  else                     { last; }
  } continue {
  }

##</code><code>##

while ( <$client> ) {
  while( my @response = <$client>) {
    next unless /\S/;       # blank line
    if    (/quit|exit/i)    { last; }
    elsif (/microsoft/i)    {foreach $command(@commands) {
                             print $client "$command\r";
                               }
                             print @client;
                             }
    else                     { last; }
    } continue {
    }
  }

##</code><code>##

... snip ...
open(LOGFILE,>>"mylog.log") or die "Can't open mylog.log\n";
print $client "$cmds\r";
while( <$client> ) {
   print LOGFILE;
   }
   close $client;
}