blob: e231c71ebc9a1d5ab729573833beb0cd09007cba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# __________ __ ___.
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
# \/ \/ \/ \/ \/
# $Id$
#
while (<STDIN>) {
if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) {
s/\_/\\\_/g;
print "\\Forward{}\~$_";
}
}
|
