ずんだの縦読み問題 Perlワンライナー編

ずんだの縦読み問題をPerlワンライナーで実装しました。
元ネタ

• ずんだの縦読み問題 Ruby編
• ずんだの縦読み問題 php編
• ずんだの縦読み問題 Java 12 Early-Access 版
• ずんだの縦読み問題 Go編
• ずんだの縦読み問題 ShellScript編
• ずんだの縦読み問題 Nim編
• ずんだの縦読み問題 JavaScript編 @erukitiさん
• ずんだの縦読み問題 JavaScript編 @clown0082さん
• ずんだの縦読み問題 Python編
• ずんだの縦読み問題 Brainf**k編

Perl

echo -e "忙しくてついったいじれない\nさみしい\nつらい" | perl -CIO -nle '$a.=substr($_,0,1);END{print $a}'

※Bashで実行してください。