in reply to data between brackets

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

[download]


In Section Seekers of Perl Wisdom