Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
};

print "length = $length\n";        # "length = 331" on my machine

 ($string =~ /\d+/g)[0];

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