foreach my $line ( <STDIN> )

##</code><code>##

while ( my $line = <STDIN> )