my $PL_sb_C_en_ina = join "|", map { chop; chop; $_ } split /\s+/,
q(stamen foramen lumen);