Perl Tipps und Tricks

Unread while reading from filehandle

Dov Grobgeld made my day!

# Found at a comment of Dov Grobgeld at https://groups.google.com/d/msg/comp.lang.perl/7fPyGpWpP8M/hc7xTMvAoW0J
while($_ = shift(@linestack) || <IN>) {
         :
             push(@linestack, $whatever);   # unread
}