mix lines by

@input = ();
while($line = <STDIN>){
  chomp($line);
  push(@input, $line);
}
$result = "";
$i = 0;
while(++$i < 100) {
  foreach(@input) {
    print substr($_, 0, 1, "");
  }
}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page