my $Tag1="hallo";
my $Tag2="bye";

my $dbh = DBI->connect( "dbi:SQLite:$DbFullPath", '', '', { sqlite_unicode => 1 }  ) || die "Cannot connect: $DBI::errstr";
$dbh->do('INSERT INTO Data (Tag1, Tag2) VALUES (?, ?)',
undef,
standardize($Tag1), standardize($Tag1));
$dbh->disconnect;

sub standardize{
 my $string=shift;
 #manipulating string
 $string=~ s/\'/\'\'/g;
 $string=~ s/^\s+|\s+$//g;
 $string=~ s/\t/ /g;
 return $string;
}

##</code><code>##

my $ID_read=1;
my $dbh = DBI->connect( "dbi:SQLite:$DbFullPath", '', '', { sqlite_unicode => 1 }  ) || die "Cannot connect: $DBI::errstr";
$dbh->do ('UPDATE Data SET Tag1=?, Tag2=? WHERE ID=$ID_read VALUES (?, ?)',
undef,
standardize($Tag1), standardize($Tag1));
$dbh->disconnect;