$/ = "\n";
my $line = <STDIN>;     # <> operator reads just one line

my $whole_file;
{
    local($/) = undef;
    $whole_file = <F>;  # <> operator reads in all of the data from filehandle F
}

$line = <STDIN>;        # reads just one line again, since $/ returns to "\n"