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