print substr( $_, 0, 80, '')."\n" while length >80;
print;