(my $name=whatever You::Think) =~ s/(?<=blaz)\w+/ar/;