#!/usr/bin/perl -n
# Function: Strip columns 1-72 of a file.
# Usage: strip72.pl input-file > output-file
while (<>)
{
chop $_;
print substr($_,0,72);print"\n";
}

