perl -e '$/=undef or $_=<> and s{^TABLE;([^;\n]+).*$|^COLUMN;(.+?);.*$}{$1?(($t=$1),""):"$t.$2"}mexg and print;' data.txt