なんだこれ、スクリプトにしてｆｏｒループ1回にして実行したらＰｅｒｌ処理系が落ちた（本当）。

for ("test... test... test...") {
$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see
}