for (1..$high) {
   print "$str\n";

   $prev_str = substr($str, -1, 1) . $str .  substr($str, 0, 1);

   $str = '';

   for ($i = 0; $i < $wide; $i++) {
      $str .= $rules{substr($prev_str, $i, 3 )};
   }
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.