--- VMethods.pm.orig	2011-08-23 20:43:39.000000000 +0100
+++ VMethods.pm	2011-08-23 20:43:55.000000000 +0100
@@ -143,8 +143,8 @@
 sub text_match {
     my ($str, $search, $global) = @_;
     return $str unless defined $str and defined $search;
-    my @matches = $global ? ($str =~ /$search/g)
-        : ($str =~ /$search/);
+    my @matches = $global ? ($str =~ /\Q$search\E/g)
+        : ($str =~ /\Q$search\E/);
     return @matches ? \@matches : '';
 }