#!perl -plaF|
$_=$,x=2;s!!$F["@-"%@F]!g;$,=$_&=($,|="@F")|~$,