diff --git a/Text/RegexPR.hs b/Text/RegexPR.hs
--- a/Text/RegexPR.hs
+++ b/Text/RegexPR.hs
@@ -5,6 +5,7 @@
 
 module Text.RegexPR (
   getbrsRegexPR
+, ggetbrsRegexPR
 , matchRegexPR
 , multiMatchRegexPR
 , gmatchRegexPR		-- EXPERIMENTAL
@@ -26,6 +27,11 @@
   = case matchRegexPR reg str of
          Nothing                    -> []
 	 Just ( (ret, (_, _)), ml ) -> ret : map snd (sort $ nubBy (on (==) fst) ml)
+
+ggetbrsRegexPR :: String -> String -> [ [ String ] ]
+ggetbrsRegexPR reg str
+  = map ( \( (m, _), bl) -> m : map snd (sort $ nubBy (on (==) fst) bl) ) $
+      gmatchRegexPR reg str
 
 matchRegexPR :: String -> String -> Maybe ( RegexResult, MatchList )
 matchRegexPR reg str
diff --git a/regexpr.cabal b/regexpr.cabal
--- a/regexpr.cabal
+++ b/regexpr.cabal
@@ -1,5 +1,5 @@
 Name:		regexpr
-Version:	0.5
+Version:	0.5.1
 License:	LGPL
 License-File:	LICENSE
 Author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
@@ -12,15 +12,16 @@
   This package has a module RegexPR.
   And RegexPR export functions matchRegexPR and gsubRegexPR.
   .
-  > getbrsRegexPR :: String -> String -> [ String ]
-  > matchRegexPR :: String -> String -> Maybe ((String, (String, String)), [(Int, String)])
-  > gmatchRegexPR :: String -> String -> [((String, (String, String)), [(Int, String)])]
+  > matchRegexPR      :: String -> String -> Maybe ((String, (String, String)), [(Int, String)])
   > multiMatchRegexPR :: String -> String -> [ ((String, (String, String)), [(Int, String)]) ]
-  > subRegexPR :: String -> String -> String -> String
-  > subRegexPRBy :: String -> (String -> String) -> String -> String
-  > gsubRegexPR :: String -> String -> String -> String
-  > gsubRegexPRBy :: String -> (String -> String) -> String -> String
-  > splitRegexPR :: String -> String -> [String]
+  > gmatchRegexPR     :: String -> String -> [ ((String, (String, String)), [(Int, String)]) ]
+  > getbrsRegexPR     :: String -> String -> [ String ]
+  > ggetbrsRegexPR    :: String -> String -> [ [ String ] ]
+  > subRegexPR        :: String -> String -> String -> String
+  > subRegexPRBy      :: String -> (String -> String) -> String -> String
+  > gsubRegexPR       :: String -> String -> String -> String
+  > gsubRegexPRBy     :: String -> (String -> String) -> String -> String
+  > splitRegexPR      :: String -> String -> [String]
   .
   Examples
   .