You need to escape all the regex metacharacters. See perldoc -f quotemeta and read about \Q in perlre. One way to do it:

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

-sauoq
"My two cents aren't worth a dime.";