#!/usr/bin/perl -w

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

			if ( /ttl|rtt/i ) {

##</code><code>##

#trims all quotes from the ESSID string 
sub trim {
	my @tr = @_;
	my @trimmed = split(/"/, $tr[0]);
	return @trimmed;
	}
	
...

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

##</code><code>##

$ perl -le'
sub test {
    my @array = "a" .. "z";   # 26 elements
    return @array;
    }
my $stuff = test();
print $stuff;
'
26

##</code><code>##

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

##</code><code>##

	Please select network by typing it`s name