Значения скобок в регулярных выражениях

[Phoinix]

metton

В принципе... IMHO надо смотреть в этом направлении:

my $var = \'...abcdefghijklmnopqrstuvwxyz...\';
my @array;
$var =~ /((\\w)(?{push @array, $&})(\\w))(?{push @array, $&})(?!)/x;
print join("\\n",@array);

вывод:

a
ab
b
bc
c
cd
d
de
e
ef
f
fg
g
gh
h
hi
....

Тебе не нужен каждый 4-й элемент, но все в твоих руках...
[OFF]Нет времени, добивать до готового[/OFF]

[NeoNox]

Вариант без регекспов:
ну или почти без....

map {push @m, $_, split //, $_ } grep { /^\\w{2}$/ } split /(\\w{2})/, "...abcdefghijklmnopqrstuvwxyz...";
print $_."\\n" for (@m);

[Phoinix]

NeoNox
[OFF]Век живи - век учить, про круглые скобки в шаблоне split написано в последнем абзаце моей документации, который я благополучно не дочитал... теперь будем знать... а я мучался...[/OFF]