iwlist scanning to csv

iwscan_csv.pl

#!/usr/bin/perl
use POSIX;

$_ = `iwlist wlan0 scanning`;
$n = 0;

for $match (split(/(?=Cell)/)) {
# print "\nCell #######################################\n";
    my @lines = split /\n/,$match;
    $essid="";
    $secure="";
    $quality="0";
    foreach $_ ( @lines ) {
        s/^\s+//;
        s/\s+$//;
#        print "--".$_."\n";
        if ( /ESSID:/ ) {
            $essid = $_ ;
            $essid =~ s/ESSID\:"(.*)"/$1/;
        }
        if ( /Encryption key:off/ ) {
            $secure="open";
        }
        if ( /WPA/ ) {
            $secure="WPA";
        }
        if ( /WPA2/ ) {
            $secure="WPA2";
        }
        if ( /WEP/ ) {
            $secure="WEP";
        }
        if ( /Quality=/ ) {
            $quality = $_ ;
            $quality =~ s#^.*Quality=([0-9]+)/.*$#$1# ;
            $quality = floor ( $quality / 70 * 100 );
        }


    }
    if ( $essid !~ /^$/ ) {
        print "'".$essid."';";
        print "'".$secure."';";
        print "'".$quality."'\n";
    }
}