open(FILE, "$file");
$line;
{
  local $/;
  $line = <FILE>;
}
@lines = split(/\015?\012/, $line);
$count=();
foreach $line (@lines){ $count+=length($line); }
print "\n$count";