$line =~ s/\Q$playertofind\E/$newplayer/g;