The only thing I left out of the big block of code with the crossover_magic is the "heading" of the module. So, here is the contents of @cross_files and the results of textify on them side-by-side. textify is at the bottom of this post. Also, if you need any other subroutines, let me know.

[
  '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'
];
[download]

[
  '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'
];
[download]

I am using this in scripts, so no -- options. Here is how crossover_magic is being used in the scripts.

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

# The rest have only one that should NOT have ' right' appended to $cl
+ass

my $magic = crossover_magic( big => ['Horror']);
my $magic = crossover_magic( big => ['Westerns in Crisis']); # I'd lik
+e to use the word 'Westerns' only
my $magic = crossover_magic( big => ['McHale UNCLE Smart']); # I'd lik
+e 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']);
[download]

Here is textify for you to peruse. It looks messy, but regexen are never pretty for me at least.

sub textify {
  my ($text, $opt) = @_;
  my $root_link = base_path('link');
  $text =~ s/$root_link\///;                         # removes the $ro
+ot_link
  $text =~ s/_/ /g;                                  # removes underso
+res
  $text =~ s/ (Mr|Mrs|Ms|Dr) / $1. /g;               # adds a period f
+or Mr, Mrs, Ms, and Dr; I may need to add more
  $text =~ s/\s&\s/ & /g;                        # converts ' & ' 
+to &
  $text =~ s/\.{3}/…/g;                        # converts '...' 
+to …
  $text =~ s/(\w|\b|\s|^)'(\w|\b|\s|$)/$1ʼ$2/g; # converts "'" to
+ ʼ
  # 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, kcot
+t, and tye on PerlMonks
# I could not remember what the previous line was doing.
  return $text;
}
[download]