while (my $_ = <>) {
}