#!/usr/bin/perl
$literals = '\{\}\+\.\*\?\^\$\[\]\(\)\\\\';	# For escaping
$bold = `/usr/5bin/tput smso`;  # A SysVism for the bold-on termcap
$norm = `/usr/5bin/tput rmso`;	# A SysVism for the bold-off termcap

$last="fdgsdfgfd";
while (<>) {
	# $ARGV = filname , $. = line number
	foreach $cur (split) {
		$last =~ s/([$literals])/\\\1/g;
		if ($cur =~ m/^$last[:;"'!,\?\.]?$/) {
			s/($cur)/$bold\1$norm/g;
			print "$ARGV-$.: $_";
		}
		$last = $cur;
	}
	close(ARGV), $last="fdgsdfgfd" if eof;
}

# --
# Eric Ziegast