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