Modification of a read-only value attempted at /usr/lib/perl5/site_perl/5.6.1/Lingua/EN/Inflect.pm line 168.
Compilation failed in require at /usr/lib/perl5/site_perl/5.6.1/Coy.pm line 19.
BEGIN failed--compilation aborted at /usr/lib/perl5/site_perl/5.6.1/Coy.pm line 19.
Compilation failed in require.
BEGIN failed--compilation aborted.

##</code><code>##

my $PL_sb_C_en_ina = join "|", map { chop; chop; $_; }
(
        "stamen",       "foramen",      "lumen",
);

##</code><code>##

my $PL_sb_C_en_ina = join "|", map { my $a = $_; chop $a; chop $a; $a }
(
        "stamen",       "foramen",      "lumen",
);

##</code><code>##

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

##</code><code>##

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