in reply to data between brackets
You should escape the special characters:
s/.+?\((.+?)\).*/$1/;
|
---|
In Section
Seekers of Perl Wisdom