while ($line = <STDIN>) {
chomp $line;
#do whatever must be done
}