http://www.perlmonks.org?node_id=616932


in reply to finding number of contiguous letters

use strict; use warnings; my $str = "computer"; my @parts = $str =~ /(?=(...))/g; print "@parts";

Prints:

com omp mpu put ute ter

DWIM is Perl's answer to Gödel