my $file = 'text.txt';
open my $fh, '<' , $file or die $!;
my @data = <$fh>;
close $fh;

print scalar @data;

##</code><code>##

system( 'cat text.txt|wc -l| sed \'s/^[ \t]*//\'|sed \'s/[ \t]*$//\'' );