Upload into database using Perl
use warnings;
use strict;
use DBI;
use HTML::TreeBuilder;

open (FILE, "demo") || die "couldn't open the file!";
open (F1, ">demo.htm") || die "couldn't open the file!";
open (F2, ">demo2.csv") || die "couldn't open the file!";

# database name, user and password
my $data_source = q/dbi:ODBC:demo/;
my $user = q/demo/;
my $password = q/demo/;

# Connect to the data source and get a handle for that connection.
my $dbh = DBI->connect($data_source, $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";

print F1 "Name|Lives In|Commentedn";
print F2 "Name|Lives In|Commentedtextn";

my $tree = HTML::TreeBuilder->new_from_content(     do { local $/; <DATA> } );

for ( $tree->look_down( 'class' => 'postbody' ) )
{
my $location = $_->look_down( 'class' => 'posthilit' )->as_trimmed_text;

my $comment  = $_->look_down( 'class' => 'content' )->as_trimmed_text;

my $name     = $_->look_down( '_tag'  => 'h3' )->as_text;

$name =~ s/^Re:s*//;     $name =~ s/s*$locations*$//;

print "Name: $namenLives in: $locationnCommented: $commentn"; }

# This query generates a result set with one record in it.
#my $sql = "SELECT 1 AS test_col";

my $sql = "insert into demo2 values (Name, Lives In, Comeented, text)";

print $sql;
print "n";

# Prepare the statement.
my $sth = $dbh->prepare($sql)
or die "Can't prepare statement: $DBI::errstr";

# Execute the statement.
$sth->execute();

}
print $b;
print " endn";

# Disconnect the database from the database handle.
$dbh->disconnect;

<div class="postbody">         <h3><a href "foo">Re: John Smith <span class="posthilit">England</span></a></h3>         <div class="content">Is C# better than Visula Basic?</div>     </div>

my $sql = "insert into demo2 values (?,?,?,?)";
...
$sth->execute($name,$location,$comment,'');