in reply to return stripped characters

Or more verbose: 
$salutation =~ s/(\(.*?\))// and $stripped = $1;

[download]
Boris

In Section Seekers of Perl Wisdom