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

##</code><code>##

  $line =~ s/[^a-zA-Z]+//g;