Help for this page

Select Code to Download


  1. or download this
    D:\>perl -le "print $1 while 'aaabbcddddaee'=~/((.)\2*)/gs"
aaa
...
dddd
a
ee
  2. or download this
    D:\>perl -le "print for unpack '(a3)*','atgactaatagcagtgg'";
atg
...
agc
agt
gg
  3. or download this
    my @filtered=do { my $i=1; grep $i++ % $N,@unfiltered};