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