29 foreach ($line1 =~ /^\d/g) {