Well...
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
"... I couldn't see how anyone could be educated by this self-propagating system in which people pass exams, teach others to pass exams, but nobody knows anything."
--Richard Feynman