open (file1, "./file1.txt");
@lines1= <file1>;
$fivefirstfile1= substr($lines1[2], 0, 5);
print "Five first characters are: $fivefprot1\n";