while (<STDIN>) {
  my $line = $_;
  # do something with $line
}