元々は、 print join("-", map { s/a/A/g } @list), "\n"; みたいにして@listの各要素を置換した配列のprintを1行で書けないのかなとか思って書いたんですが… Perl界隈の人達が反応してくれるという全く予想外の事態に。根本的にはmapが何を返すのかを分かっ…