my $lines = `wc -l $filename`;
$lines =~ /(d+)\s/; 
$lines = $1;