#!/usr/bin/perl -wp use strict; # trims lines to 80 columns chomp; $\ = $/; substr($_, 80) = ""