>>641
それだと余計な空文字列要素が間や先頭にできてしまう

>>644
切り詰めれば
$,=$";print$str=~/..../g
とかはできる。さらに $str じゃなくて $_ なら6文字縮むし、print のかわりに say が使えれば2文字縮む。
ワンライナーか競技ゴルフじゃなきゃやらんけど