perl -pe 's/TABLE;(.*)\n// and $t=$1;s/COLUMN;(\w+);.*/$t.$1/'