in reply to Delete from string through s///

I think you want the /g flag on the substitution to make it do all matches, not just the first. See perlop.

In Section Seekers of Perl Wisdom