do { 
               
     $white_space=" ";

  for( 1 .. 10 )
   {
   .....
    stuff inside for loop.
   .....
   }
  
 } until ($char_read eq $white_space);