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};