poem ColonelPanic <code> no warnings; require 5.7.5; sub haiku { $word = shift; join $word x 5 . "\n" , shift, $word x 2, shift, shift; } print haiku('foo '); </code> <div class="pmsig"><div class="pmsig-27571"> <br><br>When's the last time you used duct tape on a duct? --Larry Wall </div></div>