Kill the spaces after each ending tag ENDHTML, because after ENDHTML there must immediately follow a \n; otherwise it is not interpreted as the end of a HERE-Document and an error like this occurs...

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"