#!/usr/bin/perl

use warnings;
use strict;
use re 'eval';

$\ = $/;

while(<DATA>){
	print '-' x 15;
	
	chomp;
	
	my $target = $_;
	my @groups = split ' ', <DATA>;
	
	print "target:[$target]";
	print "groups:[@groups]";
	
	my @chars_seq;
	
	my $re = join " (?!\\g{-1}).*? \n", 
		map { sprintf 
			"(?: " . 
				"( (.)\\g{-1}{%d} ) " .
				"(?{ push \@chars_seq, \$\^N; }) " .
				"(?: (?=) | (?{ pop \@chars_seq }) (*FAIL) ) " . 
				"(?{ print join ' ', \@chars_seq; })" .
			")"
			, $_ - 1
			} @groups;
	
	print for "regex:[",
		$re,
		"]";
	
	$re =~ s/\n//g;
	
	$target =~ /
		$re
		/x or print "FAIL!";
	
	print "character sequence:[@chars_seq]";
	}

__DATA__
cbaa
1 2
cba
1
bbaa
1 2
cccqrrtaaa
2 2 2
cccqrrtaaa
1 1 2 2
cccqrrtaaa
1 1 1 1 3

##</code><code>##

---------------
target:[cbaa]
groups:[1 2]
regex:[
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{1} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; }))
]
c
c aa
character sequence:[c aa]
---------------
target:[cba]
groups:[1]
regex:[
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; }))
]
c
character sequence:[c]
---------------
target:[bbaa]
groups:[1 2]
regex:[
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{1} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; }))
]
b
b
b aa
character sequence:[b aa]
---------------
target:[cccqrrtaaa]
groups:[2 2 2]
regex:[
(?: ( (.)\g{-1}{1} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{1} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{1} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; }))
]
cc
cc
cc rr
cc rr aa
character sequence:[cc rr aa]
---------------
target:[cccqrrtaaa]
groups:[1 1 2 2]
regex:[
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{1} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{1} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; }))
]
c
c
c
c q
c q rr
c q rr aa
character sequence:[c q rr aa]
---------------
target:[cccqrrtaaa]
groups:[1 1 1 1 3]
regex:[
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{0} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; })) (?!\g{-1}).*? 
(?: ( (.)\g{-1}{2} ) (?{ push @chars_seq, $^N; }) (?: (?=) | (?{ pop @chars_seq }) (*FAIL) ) (?{ print join ' ', @chars_seq; }))
]
c
c
c
c q
c q r
c q r
c q r t
c q r t aaa
character sequence:[c q r t aaa]