diff --git a/PBot/FactoidCommands.pm b/PBot/FactoidCommands.pm
index 67ab75e3..b79f2d61 100644
--- a/PBot/FactoidCommands.pm
+++ b/PBot/FactoidCommands.pm
@@ -753,7 +753,7 @@ sub factchange {
   }
 
   my $ret = eval {
-    use re::engine::RE2;
+    use re::engine::RE2 -strict => 1;
     if(not $factoids->{$channel}->{$trigger}->{action} =~ s|$tochange|$changeto|) {
       $self->{pbot}->logger->log("($from) $nick!$user\@$host: failed to change '$trigger' 's$delim$tochange$delim$changeto$delim\n");
       return "/msg $nick Change $trigger failed.";
diff --git a/PBot/VERSION.pm b/PBot/VERSION.pm
index 7cb1c877..864d5ec0 100644
--- a/PBot/VERSION.pm
+++ b/PBot/VERSION.pm
@@ -13,8 +13,8 @@ use warnings;
 # These are set automatically by the build/commit script
 use constant {
   BUILD_NAME     => "PBot",
-  BUILD_REVISION => 558,
-  BUILD_DATE     => "2014-04-28",
+  BUILD_REVISION => 559,
+  BUILD_DATE     => "2014-04-29",
 };
 
 1;
diff --git a/modules/compiler_vm/compiler_vm_client.pl b/modules/compiler_vm/compiler_vm_client.pl
index 1d8daa59..b2a78608 100755
--- a/modules/compiler_vm/compiler_vm_client.pl
+++ b/modules/compiler_vm/compiler_vm_client.pl
@@ -524,7 +524,7 @@ if($subcode =~ m/^\s*(?:and\s+)?(run|paste)\s*$/i) {
   }
 
   if($#replacements > -1) {
-    use re::engine::RE2;
+    use re::engine::RE2 -strict => 1;
     @replacements = sort { $a->{'from'} cmp $b->{'from'} or $a->{'modifier'} <=> $b->{'modifier'} } @replacements;
 
     my ($previous_from, $previous_modifier);
@@ -578,7 +578,7 @@ if($subcode =~ m/^\s*(?:and\s+)?(run|paste)\s*$/i) {
           my $count = 0;
           my $unescaped = $from;
           $unescaped =~ s/\\//g;
-          if($code =~ s/($first_bound)$from($last_bound)/if(++$count == $modifier) { "$1$to$2"; } else { "$1$unescaped$2"; }/gex) {
+          if($code =~ s/($first_bound)$from($last_bound)/if(++$count == $modifier) { "$1$to$2"; } else { "$1$unescaped$2"; }/ge) {
             $got_change = 1;
           }
         }