use warnings;
use strict;

my @lines;
my $filename = shift;

open (IN, "$filename") or die ("Cannot open file :$!"); 
while (my $line = <IN>) {
	if (!($line =~ /\s*[a-qs-zA-Z]/)) {
		push (@lines,$line);
	}
}

close (IN) or die("Cannot close file: $!");

print "Enter link number you want to view:";
my $number1 = <STDIN>;
chomp $number1;

if ($number1 > $#lines | $number1 <= 0) {
	print "Number outside of array"
	}
	else {
		print "$lines[$number1-1]";
		}