sub foo { $_[0]+$_[1] }
my $template=<<END;
This is some line.
This is a line with some expression: # $foo(3,5) #
# foreach my $s qw(this that) { #
This is # $s # line
# } #
This is the end
END