#!/usr/bin/perl -w

$bold = `/usr/5bin/tput smso`;  # A SysVism for the bold-on termcap
$norm = `/usr/5bin/tput rmso`;	# A SysVism for the bold-off termcap

$word = '[a-zA-Z]+';

$/ = "";
while (<>) {
	# $ARGV = filname , $. = paragraph number
	print $ARGV,"\n",$_ if s/\b($word)(\s+)\1\b/$bold$&$norm/gim;
	close(ARGV) if eof; # In case will want to use paragraph numbers
		}