#!/usr/bin/perl
use warnings;
use strict;


my $file = "/Path/to/file/file_X.txt";
my $line_count = 0;

open(my $fh, '<', $file) or die("Can not open file $file to read!\n");

while( !eof($fh) ) {
    
    # define line
    my $qry_line = <$fh>;
    $line_count++;
    
    # remove new line charc
    chomp($qry_line);
    
}

close($fh);

print "\n# of lines: " . $line_count . "\n";


##</code><code>##


# split line to fields
my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k) = split("\t", $qry_line, 11);