my $count=(my $copy=$original)=~s/-(Foo|Bar)-/$1/g;