my $str = 'abracadabra';
substr($str, 3, 5) =~ s/a/@/g;
print("$str\n");  # abr@c@d@bra