chomp( my $str = );