perl -le 'print join "_", split /\W+/, "Hello ( World )"'
Hello_World