my $PL_sb_C_en_ina = join "|", map { chop; chop; $_; }
(
        "stamen",       "foramen",      "lumen",
);