sub sort_iwlist 
{ 
	#gets output from iwlist, sends erros to /dev/null 
	open (SCAN, "/sbin/iwlist scan 2> /dev/null |"); 
 
	#input seperator is 'Cell ' 
	$/ = 'Cell '; 
 
	#reads output of iwlist into array @profiles 
	my @profiles = <SCAN>; 
	#removes the first element, (all interfaces except wlan0) 
	shift @profiles; 
 
	# for every profile of iwlist 
	foreach my $profile (@profiles) 
	{ 
		my $essid; 
		#if iwlist says encryption key is on 
		if ($profile =~ m/Encryption key:on/g) 
		{ 
			#finds the essid of each network in range 
			if ($profile =~ m/"(.*?)"/) 
			{ 
				# for every profile in data.txt 
				foreach my $input (@inputs) 
				{ 
					#splits each profile from data.txt into an array @lines of newlines 
					@lines = split (/\n/, $input); 
 
					#$essid is the networks essid 
					$essid = $lines[2];			 
				} 
 
				if ($1 eq $essid) 
					{ 
						##CONNECT TO THIS NETWORK## 
						print "$1\n"; 
					} 
			}		 
		} 
	} 
}

 $inputs[$user_pick-1]

Unanswered questions are like "Thorn In Flesh", a bit of pain and does not looks nice to 
 
eye for whatever the reasons.

@lines = split (/\n/, $input)

@lines = split (/\n/, $input)

 
					if ($1 eq $essid)

sub select_profile 
{ 
	#for every network that shows in iwlist scan 
	foreach my $profile (@profiles) 
	{ 
		#searches for essid in output of iwlist scan (networks in range) 
		if ($profile =~ m/"(\w*?)"/g) 
		{ 
			#$name is essid of the network 
			my $name = $1; 
 
			print $name; 
 
			#for every profile in data.txt 
			foreach my $input (@inputs) 
			{ 
				#if profile contains the essid of a network in range 
				if ($input =~ m/$1/g) 
				{ 
					#@matches contains all networks that show up in both iwlist scan and data.txt					 
					push (@matches, $input);	 
				} 
			}			 
		} 
		else {print "NO MATCHES"}; 
	} 
 
	#print @matches; 
}

	if ($profile =~ m/"(\w*?)"/g)

#! /usr/bin/perl  
use strict; 
use warnings; 
& VIKAS; 
open (my $FH, "text") or die "cannot open $!"; 
my $ star = <$FH>; 
print $star,"\n"; 
sub VIKAS 
{ 
 $/ = 'JK'; 
} 
# The output is as follows 
#[root@localhost Documents]# perl hell.pl 
#ABCDEFGHIJK

#! /usr/bin/perl  
use strict; 
use warnings; 
& VIKAS; 
open (my $FH, "text") or die "cannot open $!"; 
my $ star = <$FH>; 
print $star,"\n"; 
sub VIKAS 
{ 
 local $/ = 'JK'; 
} 
# The out put is as follows 
#[root@localhost Documents]# perl hell.pl 
ABCDEFGHIJKLMNOPQRSTUVWXYZ