Similar to option 5 of yours, I tried:

#!/usr/bin/perl -w
use strict;

my $a = "Foo";
my $bar = "bar";
$a =~ s/(.*)/$1$bar/;

print $a;
[download]

There's always:

1) Create insert sql statements
2) Insert into a table
3) select col1+col2 from table
4) fetchrow
5) print
[download]

:)

_14k4 - perlmonks@poorheart.com (www.poorheart.com)