#perl
use strict;
use warnings;

my @dataLines = <DATA>;
print 'Number of data lines: ' . scalar @dataLines . "\n";

__DATA__
1