my @eol = ("\n","\t","\r"); # etc, etc
while(<FILE>) {
    local $/ = shift @eol;
    my $line = <FILE>;
}