perl -F/;/ -lane "/TABLE;(.+)/ and $t=$1 or print qq($t.$F[1])" o33.txt