my $myPL_sb_C_en_ina = join "|", map {substr $_, 0, -2} (
    "stamen", "foramen", "lumen",
);