Converts from printable ASCII to a 27-character vocabulary

95to27.pl

#!/usr/bin/perl

use strict;
use warnings;

use open ":encoding(ascii)";
binmode STDIN, ":encoding(ascii)";
binmode STDOUT, ":encoding(ascii)";
binmode STDERR, ":encoding(ascii)";

while (<>) {
  $_ = uc;                  # Case-folds.
  s/'//g;                   # Removes /'/ (right quotes and apostrophe).
  s/[\d\p{PosixPunct}]/ /g; # Replaces digits and punctuation with space.
  s/\s+/ /g;                # Maps whitespace spans to a single / /s.
  s/^\s+|\s+$//g;           # Removes edge whitespace.
  print "$_\n";
}