[Rio-pm] bigramas e regexp

[Stanislaw Pusep]

Estava testando o seguinte código, que quebra uma string em bigramas (no
caso, 'split //' quebra em unigramas):

$_ = q(anticonstitucionalissimamente);
for (; /(.{2})/gx; --pos) {
    print qq($1 );
}

O resultado é:

an nt ti ic co on ns st ti it tu uc ci io on na al li is ss si im ma am me
en nt te

Existe alguma forma mais bacana de se fazer isso? Talvez com uma única
regexp/split?

ABS()
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120314/ef9d5c24/attachment-0001.html>