while ($HTML =~ /<!-- fillin\((.+?)\) -->/) {
  my $command_output = &{$templateCall->{$1}}; # a subroutine call
  ($HTML, $cookie, $refresh) =~ s/<!-- fillin\(.+?\) -->/$command_output/;
}