do {
   $batch .= $line_B;
} until ( $line_B =~ m/^\s*go\s*$/i );