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 {
  }