#! /bin/sed -f
#5sep96. al aab. sed script to capitalise word initials.

s/^/ /
:loop
h
s/.*[^a-zA-Z0-9]\([a-z]\).*/\1/
/../{
    s/^[^a-zA-Z0-9]\(.*\)/\1/
    b
}
y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/
G
s/\(.\)\n\(.*[^a-zA-Z0-9]\)[a-z]/\2\1/
tloop