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