This is another instance of the ^M's inserted by the PerlMonks XML generator breaking the code. To run this, you need to either go in and delete the offending characters or run it through a filter, such as perl -pi -e 'tr/\r//d'.