$str =~ s/[\h()]/_/g;
$str =~ s/\n/ /g;