{ my $line1 = ; my $line2 = ; last unless $line1 or $line2; chomp for $line1, $line2; print "$line1 $line2\n"; redo; }