Select Code to Download

 #!/usr/bin/perl -w

    my $scanned = `iwlist scan`;
    ...
    my @lines = split(/\n/, $scanned);

    chomp( my @lines = `iwlist scan` );

                    if ( $pat =~ m/"/i )  {

            if ( $_ =~ m/ttl/i || $_ =~ m/rtt/i) {

            if ( /ttl|rtt/i ) {

#trims all quotes from the ESSID string 
sub trim {
...
...

    my $connection = &trim($conn[0]);

$ perl -le'
sub test {
...
print $stuff;
'
26

    ( my $connection = $conn[ 0 ] ) =~ tr/"//d;

    Please select network by typing it`s name