I'd use this:

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

Straightforward, uses substr like it was meant to be used.