my $PL_sb_C_en_ina = join '|',
    map { chop; chop; $_;
    } @{[ qw( stamen foramen lumen) ]};