I think I've isolated the section that is not doing what I want. open (FHIN, "$recapfile") or die $!;
my $indexb; ## for the recapfile array my $ofile; # Create new array containing all the lines of recapfile up to # the string RESULTS OF BOARD 1 XYZZY: while (<FHIN>) { last XYZZY if / RESULTS OF BOARD 1/; chomp; $ofile[$indexb++] .= $_; } close FHIN; To see what was put into ofile, a line at a time, I used foreach (@ofile) { print "$_\n"; } Is that correct? -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/