while(my $line = chomp(<>) ) {
   #do stuff;
}