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