print "Program Running";
open FILE, "<Readme.txt" or die $!;


my @lines = <FILE>;
#while (lines = <FILE>) 


{
print "Line is";
my $one= $lines[1];
print "first element only";
print $one;
my @elements;
($elements[0],$elements[1],$elements[2],$elements[3],$elements[4])=split(/ */,$one);
print "after splitting";
print $elements[4];
}
close FILE;