$count= length($line);
  $count-- if substr($line,-1) eq "\r";