for my $line (<STDIN>) {
    ...
}

##</code><code>##