# __________ __ ___. | |
# Open \______ \ ____ ____ | | _\_ |__ _______ ___ | |
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / | |
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < | |
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ | |
# \/ \/ \/ \/ \/ | |
# $Id$ | |
# | |
while (<STDIN>) { | |
if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) { | |
s/\_/\\\_/g; | |
print "\\Forward{}\~$_"; | |
} | |
} | |