while () { print substr($_, 0, 100); }