#!/usr/bin/perl

$bold = `/usr/5bin/tput smso`;  # A SysVism for the bold-on termcap
$norm = `/usr/5bin/tput rmso`;	# A SysVism for the bold-off termca
($boldpat=$bold) =~ s/(\W)/\\$1/g;

$numfiles = @ARGV;
$prev="\n";
while (<>) {
    # $ARGV = filename , $. = line number
    $filepref = "";
    $filepref = "$ARGV:" if ($numfiles>1);
    $_ = "$prev$_";
    s/\b(\w+)(\s+)(\1)\b/$bold$1$norm$2$bold$3$norm/gim;
    ($_,$prev) = split('\n');
    $_="$_\n";
    $prev="$prev\n";
    print "$filepref",$.-1,":$_" if /$boldpat/;
    if (eof) {print "$filepref$.:$prev" if ($prev=~/$boldpat/); close(ARGV);}
}