my $s = "xyabcy*+!*+!*+!*+!*+!*+!";
$s =~ y/*+!//d;