Select Code to Download

#!/usr/bin/perl -l

...
  1 while print(join ',', /./g),
    s/([^$last])($last*)$/ $next{$1} x length $& /e;
  }

count=1
0
...
real    0m0.023s
user    0m0.018s
sys     0m0.009s