perl -nle "/TABLE;(.*)/?($t=$1):/;(.*);/&&print qq($t.$1)" o33.txt