use warnings; use strict; my @tests = ("this is+ +test", "this+test", "morepluses+++++++test"); for (@tests) { tr /+/ /; #lower overhead than the regex engine print "$_\n"; } __END__ this is test this test morepluses test