foreach my $line ( <STDIN> )