#!/usr/local/bin/perl -n printf "%3d %s", ++$n, $_;