@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).