$/ = undef;
  $line = <FILE>;
  close FILE;
  $line =~ s/\W+//g;
  print "I found ", length( $line ), "characters in the file\n";