in reply to Re^2: calculating lines
in thread calculating lines

never mind, worked it out...
s/\s+//g;
s/$\s//;
s/([\041-\057]|[\72-\100]|[\133-\140]|[\173-\176])+//g;
print lc;

[download]

In Section Seekers of Perl Wisdom