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