[code=perl]
my $octets = `iwlist wlan0 scan | grep ESSID`;
my $characters = decode('UTF-8', $octets, Encode::FB_CROAK);
print $characters, "\n";