perl -ne 'while (/(.{0,150})/g) {print "$1\n"}' largefile.txt