my @records;
for (qx| sudo iw dev wlan0 scan |) {
  if (/^BSS\s*(.*)/) { push @records, { BSS=>$1 } }
  elsif (/^\s*(\w+):\s*(.*)/) { $records[-1]{$1} = $2 if @records }
}
foreach my $record (@records) {
  print "$record->{SSID}\n";
}