use strict; use warnings; sub MakeLine { return "Blah Blah param=$_[0]"; }; print << "HEREDOC"; First line of heredoc @{[ MakeLine(3) ]} @{[ MakeLine(543) ]} @{[ MakeLine("Some text also") ]} Last line of heredoc HEREDOC #### First line of heredoc Blah Blah param=3 Blah Blah param=543 Blah Blah param=Some text also Last line of heredoc