my $PL_sb_C_en_ina = join "|", map { /^(.*)..$/ && $1 } split /\s+/,
q(stamen foramen lumen);