perl -pe 's/(.{80})/$1\n/g'