while (my $line = <FILE>)
{
     # ... Use $line where you would normally use $_
}