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

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