use Modern::Perl;

open my $FH, '<', '/home/jack/Desktop/Perl_file.txt' or die "Could not open file: $!";

while (my $line = <$FH>) {
    my $char = substr($line, 0, 2);
    print $char;
}

close $FH;