Help for this page
red orange ... white black gray
perl -E ' use lib "mods/lib"; ... my @array=fancy_open("test.txt", { before => "solid ", after => " bead +" }); say $_ for @array; '
solid red bead solid orange bead ... solid white bead solid black bead solid gray bead