#!perl -plaF
$a=($_=$a=~s##$F["@-"%@F]#gr&(($a|="@F")|~$a))x2