view release on metacpan or  search on metacpan

Buckaroo.pm  view on Meta::CPAN

# Author:  Kevin J. Rice
#          Buffalo Grove, IL
#          http://www.JustAnyone.com
#
###############################################################################
#
# NOTE: For Module Comments, see bottom of this file for POD documentation.
#
# Version Information:
#
# 1.01  Kevin J. Rice  June 11th, 2002
#       Submitted to CPAN.
# 1.02  Kevin J. Rice  June 13th, 2002
#       Fixed "bug" in POD documentation, in response to bug #741 in the
#       cpan but tracking database (see http://rt.cpan.org)
#
###############################################################################

use 5.006;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = ();
our $VERSION = '1.02';

###############################################################################
# IF YOU WANT TO TURN ON DEBUG MODE
# (and thus see lots of logging lines that explain how things are happening
# as they happen), set debug_mode = 1.
# If you do, you'll need either:
#   (1) Perl 5.6 (to get Data::Dumper by default), or
#   (2) to have Data::Dumper already installed.
# Data::Dumper is a very, very handy module, but it wasn't in the default Perl
# installation until (I think) Perl 5.6.  Perl 5.005 usually don't have it.
# Look on CPAN.ORG for Data::Dumper if you don't have it.
###############################################################################
my $debug_mode = 0;
print("starting script...\n") if $debug_mode;

if ($debug_mode)
{
    use Data::Dumper;
}
else
{
#    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
    080q 081q 082q 083q 084q 085q 086q 087q 088q 089q
    090q 091q 092q 093q 094q 095q 096q 097q 098q 099q
    100q 101q 102q 103q 104q 105q 106q 107q 108q 109q
    110q 111q 112q 113q 114q 115q 116q 117q 118q 119q
    120q 121q 122q 123q 124q 125q 126q 127q 128q 129q
    130q 131q 132q 133q 134q 135q 136q 137q 138q 139q
    140q 141q 142q 143q 144q 145q 146q 147q 148q 149q
    150q 151q 152q 153q 154q 155q 156q 157q 158q 159q
    160q 161q 162q 163q 164q 165q 166q 167q 168q 169q
    170q 171q 172q 173q 174q 175q 176q 177q 178q 179q
    180q 181q 182q 183q 184q 185q 186q 187q 188q 189q
    190q 191q 192q 193q 194q 195q 196q 197q 198q 199q
    200q 201q 202q 203q 204q 205q 206q 207q 208q 209q
    210q 211q 212q 213q 214q 215q 216q 217q 218q 219q
    220q 221q 222q 223q 224q 225q 226q 227q 228q 229q
    230q 231q 232q 233q 234q 235q 236q 237q 238q 239q
    240q 241q 242q 243q 244q 245q 246q 247q 248q 249q
    250q 251q 252q 253q 254q ));

my @xlate_array = (
"Aggie Guerard Rodgers", "Alan Howarth", "Alan Oliney", "Alexandra Leviloff", "Anne Thompson", "Anthony Milch",
"Arne Schulze", "Artie Duncan", "Arties Artery", "Baby Bang", "Bari Dreiband-Burman", "Beverly Bernacki",
"Bill Cobb", "Bill Henderson", "Billy Travers", "Billy Vera", "Black Lectroid", "Blue Blazer Irregulars",
"Bodifications", "Bones Howe", "Brian Ralph", "Bruce McBroom", "Bryan Denegal", "Dan Hedaya", "Dan Lupovitz",
"Dan Roth", "David Blitstein", "David E. Campbell", "David Gross", "David P. Newell", "David R. Hardberger",
"David Schwartz", "Buckaroo Banzai", "Defense Sec. McKinley", "Penny Priddy", "Dry LA aqueduct",
"Eighth dimension", "Ellen Barkin", "Future Begins Tomorrow", "Girl Named John", "Hanoi Xan",
"Hong Kong Cavaliers", "Hydraulic Watermelon", "Jeff Goldblum", "John Balook", "John Bigboote",
"John Lithgow", "John Smallberries", "John Ya Ya", "Lectoid", "Monkey Boy", "Neurosurgeon",
"NoNoNo Dont Tugonthat", "Nomatterwhereyougo thereyouare", "Nuclear Physicst", "Oscillation Overthruster",
"Perfect Tommy", "Peter Weller", "Pinky Carruthers", "Planet 10", "President Widmark", "Prof Toichi Hikita",
"Rawhide", "Red Lectroids", "Reno Nevada", "Sandra Banzai", "Scooter Lindley", "Sidney Zwibel", "Smolensk USSR",
"Thermopod", "Truncheon Bomber", "W.D. Richter", "Yakov Smirnoff", "Yoyodyne Propulsion Systems", "Carl Lumbly",
"Cash for lithium", "Casper Lindley", "Cheryl Bloch", "Chris Casady", "Chris Collins", "Christopher Keith",
"Christopher Lloyd", "Chuck Cooper", "Clancy Brown", "Colette Emanuel", "Comic Book Hero", "Crying of Lot 49",
"Damon Hines", "Dena Fischer", "Dennis E. Jones", "Dennis Schultz", "Duck Hunter Bubba", "Duck Hunter Burt",
"Earl Mac Rauch", "Doctor Emilio Lizardo", "Tom Cranham", "Ron Gress", "New Jersey", "Sam Minsky",
"Doreen A. Dixon", "Eddie Marks", "Edward Morey", "Eric Guaglione", "Erik L. Nelson", "Francine Lembi",
"Frank James Sparks", "Fred Iguchi", "Fred J. Koenekamp", "Gary Bisig", "Gary Daigler", "Gary Hellerstein",
"Gary Hymes", "General Catburd", "George Bowers", "George Stokes", "Gerald Peterson", "Glenn Campbell",
"Gordon Ecker Jr.", "Greenlite", "Greg Mires", "Gregg C. Rudloff", "Gregory Jein", "Grovers Mills", "H. Bud Otto",
"Henry Millar", "Hoyt Yeatman", "J. Michael Riva", "Jacqueline Zietlow", "James Belohovek", "James Hagedorn",
"James Keane", "James M. McCann", "James Rosin", "James Saito", "Jamie Lee Curtis", "Jane Marla Robbins",
"Jane Schwartz Jaffe", "Jerry Lewis hope2carrion", "Jerry Segal", "Jessie Lawrence Ferguson", "Joan Rowe",
"John Bracken", "John David Ashton", "John Emdall", "John Gant", "John Gomez", "John Murray", "John O'Connor",
"John Parker", "John Roesch", "John Scheele", "John T. Reitz", "John T. VanVliet", "John Valuk", "John Vigran",
"John Walter Davis", "Jonathan Banks", "Judi Rosner", "Judith Herman", "Justin De Rosa", "Kathryn Newbrough Sommer",
"Katterli Frauenfelder", "Keith Shartle", "Kenneth Karman", "Kenneth Magee", "Kent Perkins", "Kevin Rodney Sullivan",
"Kolodny Brothers", "Larry Fallick", "Laura Harrington", "Layne Bourgoyne", "Leonard Gaines", "Leslie Ekker",
"Lewis Smith", "Linda DeScenna", "Linda Fleisher", "Linda Henrikson", "Lord John Whorfin", "M. James Arnett",