2006-06-05 10:08:54 +00:00
|
|
|
# __________ __ ___.
|
|
|
|
|
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
|
|
|
|
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
|
|
|
|
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
|
|
|
|
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
|
|
|
|
# \/ \/ \/ \/ \/
|
|
|
|
|
# $Id$
|
|
|
|
|
#
|
|
|
|
|
while (<STDIN>) {
|
|
|
|
|
if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) {
|
2006-07-20 14:33:04 +00:00
|
|
|
print "\\Forward{}\~$1\n";
|
2006-06-05 10:08:54 +00:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
