if ($line1 =~ m/^Start/) { # Skip to the end of the record my $t = for 1..6; my $lastline = ; }