chomp( my($line)=$_ ) ;