Essentially the same as the others, but uses 'join' and capturing parens:

use strict; use warnings;

my $string = 'Hello (World).';
print join '_', ($string =~ /(\w+)/g);

Prints: Hello_World
[download]