Mine

CORE:~# cat `which scan`
#!/bin/bash
iwlist ath0 sc|egrep 'Addre|ESSID|Quality|key|IE'|sed 's/\ \ \ \ \ \ \ \ \ \ //g'|tr "\n" "\ "|sed -e 's/Cell/\nCell/g' -e 's/\"\"/\"-\"/g' -e 's/\"/\ /g' -e 's/=/\ /g' -e 's/key:/key:\ /g'|awk '{print "\x1b[1m" $2, $7 "\x1b[22m", $5, "S:", $12, "N:", $16, "Q:", $9, "E:", $20, $22}'|sed -e 's/IEEE/WPA2/g' -e 's/E:\ on\ WPA/E:\ WPA/g' -e 's/E:\ on/E:\ WEP/g'|grep -v \ \ |sed -e 's/\ E:\ /\x1b\[1m\ E:\x1b\[22m/g' -e 's/\ S:\ /\x1b\[1m\ S:\x1b\[22m/g' -e 's/\ N:\ /\x1b\[1m\ N:\x1b\[22m/g' -e 's/\ Q:\ /\x1b\[1m\ Q:\x1b\[22m/g' -e 's/off/\x1b\[32moff\x1b\[39m/g'