#!/usr/bin/perl -n
/.{80,}/;                     # match line of at least 80 chars
