in reply to Number of lines and characters

I meant to put: 
$file = "bas.doc";

[download]

In Section Seekers of Perl Wisdom