my $raw_start = '[RAW]';
my $raw_stop = '[/RAW]';

$body =~ s[(?:^|\Q$raw_stop\E)(.+?)(?:\Q$raw_start\E|$)]{
        my $toModify = $1;
        $toModify = cleanup($toModify);
        $toModify;
    }seg;