diff --git a/MANIFEST b/MANIFEST
index 5b588e4..317850f 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -116,6 +116,7 @@ t/virtual_table/02_find_function.t
 t/virtual_table/10_filecontent.t
 t/virtual_table/11_filecontent_fulltext.t
 t/virtual_table/20_perldata.t
+t/virtual_table/21_perldata_charinfo.t
 typemap
 util/getsqlite.pl
 xt/meta.t
diff --git a/t/virtual_table/21_perldata_charinfo.t b/t/virtual_table/21_perldata_charinfo.t
new file mode 100644
index 0000000..6ae5522
--- /dev/null
+++ b/t/virtual_table/21_perldata_charinfo.t
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+use strict;
+BEGIN {
+	$|  = 1;
+	$^W = 1;
+}
+
+# test the example described in 
+# L<DBD::SQLite::VirtualTable::PerlData/"Hashref example : unicode characters">
+
+use t::lib::Test qw/connect_ok/;
+use Test::More;
+use Test::NoWarnings;
+
+use Unicode::UCD 'charinfo';
+
+our $chars = [map {charinfo($_)} 0x300..0x400];
+
+plan tests => 10;
+
+my $dbh = connect_ok( RaiseError => 1, AutoCommit => 1 );
+
+ok $dbh->sqlite_create_module(perl => "DBD::SQLite::VirtualTable::PerlData"),
+   "create_module";
+
+ok $dbh->do(<<""), "create table";
+  CREATE VIRTUAL TABLE charinfo USING perl(
+    code, name, block, script, category,
+    hashrefs="main::chars")
+
+my $sql = "SELECT * FROM charinfo WHERE script='Greek' AND name LIKE '%SIGMA%'";
+my $res = $dbh->selectall_arrayref($sql, {Slice => {}});
+ok scalar(@$res),                        "found sigma letters";
+is $res->[0]{block}, "Greek and Coptic", "letter in proper block";
+
+# The former example used SQLite's LIKE operator; now do the same with MATCH
+# which gets translated to a Perl regex
+$sql = "SELECT * FROM charinfo WHERE script='Greek' AND name MATCH 'SIGMA'";
+$res = $dbh->selectall_arrayref($sql, {Slice => {}});
+ok scalar(@$res),                        "found sigma letters";
+is $res->[0]{block}, "Greek and Coptic", "letter in proper block";
+
+# the following does not work because \b gets escaped as a literal
+#$sql = "SELECT * FROM charinfo WHERE script='Greek' AND name MATCH '\\bSIGMA\\b'";
+
+
+# but the following does work because the REGEXP operator is handled
+# outside of the BEST_INDEX / FILTER methods
+$sql = "SELECT * FROM charinfo WHERE script='Greek' AND name REGEXP '\\bSIGMA\\b'";
+$res = $dbh->selectall_arrayref($sql, {Slice => {}});
+ok scalar(@$res),                        "found sigma letters";
+is $res->[0]{block}, "Greek and Coptic", "letter in proper block";