diff --git a/lib/Data/Dump.pm b/lib/Data/Dump.pm
index 3557d77..c7131d1 100644
--- a/lib/Data/Dump.pm
+++ b/lib/Data/Dump.pm
@@ -192,7 +192,7 @@ sub _dump
 		my $v = "$rval";
 
 		my $mod = "";
-		if ($v =~ /^\(\?([msix-]+):([\x00-\xFF]*)\)\z/) {
+		if ($v =~ /^\(\?\^?([msix-]*):([\x00-\xFF]*)\)\z/) {
 		    $mod = $1;
 		    $v = $2;
 		    $mod =~ s/-.*//;