Re: printing 20 characters in a line.

If you don't mind losing $str:

$str=~s/((?:\d+ ){20})/$1\n/g;

print OUT "$str\n";
[download]

GreetZ!,

ChOas
print "profeth still\n" if /bird|devil/;