Re^4: Collapsing smaller scripts into a larger one, request for comment

[Lady_Aleena]

I should have had that in already! Thank you for the reminder. I did it just a tad differently, but the same result.

my $heading          = q(Lady Aleena's collections);
my $collection_file  = "$collections_dir/index.txt";

if ( $collection && grep { $collection eq $_ } @collections ) {
  # I don't like the next line.
  $heading           = q(Lady Aleena's ).lc "$collection collection";
  $collection_file   = "$collections_dir/$collection.txt";
}

  $collection_file  =~ s/ /_/g;

open(my $collection_fh, '<', $collection_file) || die $!;