$/ = undef; my $lines = ;