$stripped="";
$salutation =~ s/(\(.*?\))/$stripped .= $1;''/e;
print $stripped;