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