my $length = (`wc -l $filename` =~ /\d+/g)[0];  # get output of wc
die "wc error $?" if $?;        # die if wc chokes for some reason