Select Code to Download

#!/usr/bin/perl

...
my $input = q{[% "Blah, Blah," | replace(',$', '') %]};

$template->process(\$input) || die $template->error();   # output "Bla
+h, Blah"