$ perl -le'
my $string = "JAZZxxJAZZJAZZxxJAZJAZZxxJAZZ";

print $string;

$string = join "JAZZ", grep [ tr//a/c ], split /JAZZ/, $string, -1;

print $string;
'
JAZZxxJAZZJAZZxxJAZJAZZxxJAZZ
JAZZaaJAZZJAZZaaaaaJAZZaaJAZZ