my $str = <STDIN>;
chomp($str);