Help for this page
package test;$text <<TEST;test@heredoc;\r\nTEST;print "$text\n"
perl -e 'package test;$text=q(test@heredoc);print "$text\n"'