$str =~ s/\Q$_\E/$random{$_}/g;