$string =~ s/monk/shift @array/eg ;