perl -e 'package test;$text <<'TEST';test@heredoc;\r\nTEST;print "$text\n"'