view release on metacpan or  search on metacpan

Buckaroo.pm  view on Meta::CPAN

#    sub Dumper { return(""); }
}

my $header = "Buckaroo Banzai Across The Eigth Dimension " x 2 . "\n";

###############################################################################
# this translation array is just for fun, but also for debugging so you can see
# how characters are encoded as they are encoded.
#
# If you try a new encoding method, use this one and you'll be able to see if
# characters are encoded and decoded correctly.

my @xlate_array1 = (qw(
    000q 001q 002q 003q 004q 005q 006q 007q 008q 009q
    010q 011q 012q 013q 014q 015q 016q 017q 018q 019q
    020q 021q 022q 023q 024q 025q 026q 027q 028q 029q
    030q 031q 032q 033q 034q 035q 036q 037q 038q 039q
    040q 041q 042q 043q 044q 045q 046q 047q 048q 049q
    050q 051q 052q 053q 054q 055q 056q 057q 058q 059q
    060q 061q 062q 063q 064q 065q 066q 067q 068q 069q
    070q 071q 072q 073q 074q 075q 076q 077q 078q 079q