sub print_1
{
my $text = shift;
print <<END;
<p> $text </p>
<form
......
</form>
END
}

##</code><code>##

....
....
## instead of
print_1($text);
## I want to somehow 
$string .= ## results of print_1($text)
....