while ( my $line = <STDIN> )