Help for this page

Select Code to Download

Select or download this

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