$/=undef;
for (<> =~ /\((.*?)\)/g) { print $1, "\n" }