$_='Hello ( World )';
print "$1_$2" if /(\w+) \( (\w+) \)/;
^D
Hello_World