$str= "ababa";
$str =~ s/a*/x/g;
print "$str\n"