perl -e'for($q=join("",grep('/SID:\|key:off/',qx(iwlist wlan0 scan)))){{s/\s+/,/g}{s/,Encryption,/,/g}}{s/,//}while($i<scalar(@p=split(/,/,$q))){if($p[$i+1]eq"key:off"){print$p[$i]}$i++}'