while (<F1> && ($line_stop++ < $line_no)) { 
   while (s/^[\ \t]//g) {} };