>perl -e"for my $x (1..2) { print qq{$x: $_} while <STDIN>; }"
a
1: a
b
1: b
c
1: c
^Z
d
2: d
e
2: e
f
2: f
^Z