>perl -E "while () {say shift; push @input, $_;} say @input;" foo bar baz bat sit sat sot ^Z foo bar baz bat sit sat sot