#!/opt/local/bin/perl
use strict;

use Template ();
use Scalar::Util qw( looks_like_number );

sub fmt_currency_factory {
    my ($ctx, $fmt) = @_;

    $fmt = "%0.4f" unless defined $fmt;

    return sub {
        my ($txt) = @_;
        return $txt unless looks_like_number($txt);

        my $val = sprintf( $fmt, abs($txt) );

        if ( $txt < 0 ) {
            $txt = '<span class="neg">(' . $val . ')</span>';
        }
        else {
            $txt = $val;
        }

        return $txt;
    }
}

my $t = Template->new(
  FILTERS => { fmt_currency => [ \&fmt_currency_factory, 1 ] },
  ## ...
);
my $data = { qw/foo 1.23 bar -3.45 baz quux/ };
my $tmpl_src = <<EOT;
[% foo | fmt_currency %]
[% bar | fmt_currency( "%0.1f" ) %]
[% baz | fmt_currency %]
EOT

$t->process( \$tmpl_src, $data, \*STDOUT )
  or die $t->error();

__END__
1.2300
<span class="neg">(3.5)</span>
quux