#!/usr/bin/perl -w

use HTML::Template;

my $temp = q|<TMPL_VAR name="mouth"><nothing-\|-bob><TMPL_VAR name="bob">|;

$template = HTML::Template->new(scalarref => \$temp);
$template->param(bob=>"bob");
print $template->output;
__DATA__
<nothing-|-bob>bob