I think this is a job for split+join:

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