Add a work-around function for older Perls

pod/perlvar.pod

@@ -1120,6 +1120,26 @@ information on this form and its uses.
 
 This variable was added in 5.25.7
 
+If you need access to this functionality in older Perl's you can use this
+function immediately after your regexp.
+
+    sub get_captures {
+        my $str      = $&;
+        my @captures = ();
+
+        # Build array using the offsets from @- and @+
+        for (my $i = 1; $i < @-; $i++) {
+            my $start = $-[$i];
+            my $end   = $+[$i];
+            my $len   = $end - $start;
+
+            my $str = substr($str, $start, $len);
+            push(@captures, $str);
+        }
+
+        return @captures;
+    }
+
 =item $MATCH
 
 =item $&