Select Code to Download

D:\>perl -le "print $1 while 'aaabbcddddaee'=~/((.)\2*)/gs"
aaa
...
dddd
a
ee

D:\>perl -le "print for unpack '(a3)*','atgactaatagcagtgg'";
atg
...
agc
agt
gg

my @filtered=do { my $i=1; grep $i++ % $N,@unfiltered};