$salutation =~ s/(\(.*?\))// and $stripped = $1; [download]
In reply to Re^2: return stripped characters by Roy Johnson in thread return stripped characters by Anonymous Monk