$foo =~ s/($bar)+/$bar/g;