$varx = 'healthy(b';
$varx =~ s/\(/\</;