http://www.perlmonks.org?node_id=94559


in reply to Splitting A Word?

You could just set the table width to a certain amount and that way the table will never change and it will wrap the text automatically... 

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

[download]

In Section Seekers of Perl Wisdom