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