use Template qw( );

my $template = Template->new();

my $input = <<'__EOI__';
[% foo = 'Blah blah,' %]
[% foo  | replace(',$', '') %]
__EOI__

$template->process(\$input)
   or die $template->error();

##</code><code>##


Blah blah