my $foo = "Camel meme power supreme!";
my $bar = "me";

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

##</code><code>##

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

##</code><code>##

$line =~ s!($/)+!$/!g;