Select Code to Download

    perl titles.pl <thispost.txt >thispost.enc
    perl titles.pl -d <thispost.enc >thispost.dec
...
    perl titles.pl -e <perl.exe >perl.enc
    perl titles.pl -e -d <perl.enc >perl.dec
    fc perl.exe perl.dec

Well-l_you_need_fairly_long_file_names_for_this_to_work_so_that
eliminates_DOS_and_the_14--character_Unix_file_systems_but_also
...
my_-dcode-q_join_-BBL-_-g0-g..-g9-GLG-a-g..-gz-GLG-A-g..-gZ-GLGYGLG-.-
+GO-
[...]
________-2_elsif-h__1_-QQ-_length-HD-1-i__-FF-__0_-PQ-_index-HD-punct-
+LD-1-i__-i_-0

#!/usr/bin/perl -w
use strict;
...
        print $decode ? decode($_) : encode($_), "\n";
    }
}