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

print OUT "$str\n";