A simple way to do this is with local:

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

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.