perl -we'$_="test";print while <>;print "\$_:$_\n"'
a
a
b
b
<CTRL-D>
Use of uninitialized value in concatenation (.) or string at -e line 1, <> line 2.
$_: