#!/opt/perl/bin/perl # # See ../README.md # # # Run as: perl -pl ch-1.pl < input-file # $_=($;+=$_)/$.