<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/local/bin/perl

$num=1;
$width=40;

while (&lt;&gt;)
	{
	chop;

	$i=length($_);

	$n=$width-$i;
	$i=int(($n+7)/8);
	print $_.("\t" x $i).$num."\n";
	$num++;
	}

</pre></body></html>