$temp_=~ /\!(\S+?)            #tablename
         (?:\[(.*?)\]){1,4}   #table variables
          \s+.*/x;            #white space then rest of text.
	print Dumper ($1, $2, $3, $4, $5);