Select Code to Download

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