while (my $line = <$IN>)
{
    # ...
}