diff --git a/lib/Devel/Cycle.pm b/lib/Devel/Cycle.pm
index 19d3d63..2c5fdd1 100644
--- a/lib/Devel/Cycle.pm
+++ b/lib/Devel/Cycle.pm
@@ -215,7 +215,9 @@ sub _format_reference {
 sub _get_type {
   my $thingy = shift;
   return unless ref $thingy;
-  return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') || UNIVERSAL::isa($thingy,'REF');
+  return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') ||
+                     UNIVERSAL::isa($thingy,'REF') ||
+                     UNIVERSAL::isa($thingy,'Regexp');
   return 'ARRAY'  if UNIVERSAL::isa($thingy,'ARRAY');
   return 'HASH'   if UNIVERSAL::isa($thingy,'HASH');
   return 'CODE'   if UNIVERSAL::isa($thingy,'CODE');