my $stripped;
$stripped = $1 if $salutation =~ s/(\(.*?\))//;