#!/usr/bin/perl

use strict;
use warnings;


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