...
while(<>) {
    # do stuff
    print $whatever;
}