t/t4018/perl-skip-end-of-heredoc - jrn/git - Git at Google

 sub RIGHTwithheredocument {
 	print <<"EOF"
 decoy here-doc
 EOF
 	# some lines of context
 	# to pad it out
 	print "ChangeMe\n";
 }
	sub RIGHTwithheredocument {
	print <<"EOF"
	decoy here-doc
	EOF
	# some lines of context
	# to pad it out
	print "ChangeMe\n";
	}