my $wah = m/\(([^\)]+)\)/;