while ($var =~ s/bar.*?\Kbar/foo/) {1}