Select Code to Download

Modification of a read-only value attempted at /usr/lib/perl5/site_per
+l/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/Co
+y.pm line 19.
Compilation failed in require.
BEGIN failed--compilation aborted.

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

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

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

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