#!/usr/bin/perl
use warnings;
use strict;

use DBI;

my $db = DBI->connect('dbi:SQLite:dbname=1.db', q(), q());
$db->do('CREATE TABLE T (name varchar)');

my $insert = $db->prepare('INSERT INTO T VALUES(?)');

for my $name (qw(Matthew Mark Luke John)) {
    $insert->execute((' ' x rand 10) . $name . (' ' x rand 10));
}

my $select = $db->prepare('SELECT LTRIM(RTRIM(name)) AS name FROM T');
$select->execute;
while (my $name = $select->fetchrow_arrayref) {
    print "|$name->[0]|\n";
}