I just tried it, and \\r didn't seem to be liked by the shell.

But you can do:

perl -e 'symlink("/usr/bin/perl", "/usr/bin/perl\\r")'

And then the bad scripts should work just fine.

Cheers,
Ben