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

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

print $a;

##</code><code>##

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