perl -lpe 'substr($_, (length $_ > 79) ? 80 : length $_) = ""' *.txt