http://www.perlmonks.org?node_id=655504


in reply to data between brackets

You should escape the special characters:
s/.+?\((.+?)\).*/$1/;