Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
  $line =~ s/[^a-zA-Z]+//g;
```