Select Code to Download

foreach $mitem(@missing) { 
   #print"\n$mitem";
...
    last if $char_read eq /\s/; 
  } 
}

  for( 1 .. 10 )

       white_space=" ";         
         #for loop stuff
       until $char_read eq white_space;