Select Code to Download

my $content = <<CONTENT;                                             
foo somestuff
...
my $rep_zimzam  = 'zoomzam';
$content =~ s/(foo(?!bar).*?)\Q$orig_zimzam\E(.*?bar)/$1$rep_zimzam$2/
+sg;
print $content;

foo somestuff
zoomzam someotherstuff
...
zoomzam

foo zimzam bar

foo somestuff
zoomzam someotherstuff
...
zimzam

foo zoomzam bar