How to replace a random string delimited by a start and end pattern

$string =~ s/start-pattern[^end-pattern]*end-pattern/start-pattern end-pattern eg. to replace (body a;sdf;a asdjf; sfdl;las d; dsf;adsf) with (body) $string =~ s/(body[^)])/(body)/i;