foreach my $line (<FILEIN>) {
...

##</code><code>##

while (my $line= <FILEIN>) {
...