[
  'key.svg',
  'Spy_Machete.svg',
  'Two_Half_Bang.svg',
  'McHale_UNCLE_Smart.svg',
  'Howling_Gremlins.svg',
  'Dragnet.svg',
  'View_Scream.svg',
  'blank_spinoff.svg',
  'Westphall.png',
  'Westerns_in_Crisis.svg',
  'Mary_Tyler_Moore.svg',
  'Better_Fast.svg',
  'Terminator_Abyss.svg',
  'Frozen_Hatchet.svg',
  'Babylon_5_Cases.svg',
  'Columbo.svg',
  'crossover_archive.zip',
  'Burkes_Law.svg',
  'temp.svg',
  'Westphall.svg',
  'Arriving_to_Westphall.svg',
  'key-big.svg',
  'Departing_from_Westphall.svg',
  'MCU.svg',
  'Horror.svg',
  'Alices_Hazzard.svg'
];

##</code><code>##

[
  'key',
  'Spy Machete',
  'Two Half Bang',
  'McHale UNCLE Smart',
  'Howling Gremlins',
  'Dragnet',
  'View Scream',
  'blank spinoff',
  'Westphall',
  'Westerns in Crisis',
  'Mary Tyler Moore',
  'Better Fast',
  'Terminator Abyss',
  'Frozen Hatchet',
  'Babylon 5 Cases',
  'Columbo',
  'crossover archive',
  'Burkes Law',
  'temp',
  'Westphall',
  'Arriving to Westphall',
  'key-big',
  'Departing from Westphall',
  'MCU',
  'Horror',
  'Alices Hazzard'
];

##</code><code>##

my $magic = crossover_magic();                   # no big svgs here, so no $opt{big}

# The rest have only one that should NOT have ' right' appended to $class

my $magic = crossover_magic( big => ['Horror']);
my $magic = crossover_magic( big => ['Westerns in Crisis']); # I'd like to use the word 'Westerns' only
my $magic = crossover_magic( big => ['McHale UNCLE Smart']); # I'd like to use ONE word only

# All svgs with Westphall in the name are big, so again no ' right'

my $magic = crossover_magic( big => ['Westphall']);

my $magic = crossover_magic( big => ['Arriving to Westphall']);
# I prefer
my $magic = crossover_magic( big => ['Westphall']);

my $magic = crossover_magic( big => ['Departing from Westphall']);
# I prefer
my $magic = crossover_magic( big => ['Westphall']);

##</code><code>##

sub textify {
  my ($text, $opt) = @_;
  my $root_link = base_path('link');
  $text =~ s/$root_link\///;                         # removes the $root_link
  $text =~ s/_/ /g;                                  # removes undersores
  $text =~ s/ (Mr|Mrs|Ms|Dr) / $1. /g;               # adds a period for Mr, Mrs, Ms, and Dr; I may need to add more
  $text =~ s/\s&\s/ &amp; /g;                        # converts ' & ' to &amp;
  $text =~ s/\.{3}/&#8230;/g;                        # converts '...' to &#8230;
  $text =~ s/(\w|\b|\s|^)'(\w|\b|\s|$)/$1&#700;$2/g; # converts "'" to &#700;
  # The following takes out html tags unless I tell it not to
  $text =~ s/<.+?>//g      unless ($opt->{'html'}   && $opt->{'html'}   =~ /^[ytk1]/);
  # The following takes out parenthes unless I tell it not to
  $text =~ s/\s\(.*?\)$//  unless ($opt->{'parens'} && $opt->{'parens'} =~ /^[ytk1]/);
  # The following removes file extensions except .com, .net, and .org
  $text =~ s/\.\w{2,5}?$// unless $text =~ /\.(?:com|net|org)$/; 
#  $text =~ s/(?<!\A)((?<! )\p{uppercase})/ $1/g; # from Kenosis, kcott, and tye on PerlMonks
# I could not remember what the previous line was doing.
  return $text;
}