list($type,$id,$gl,@obj,$amount)=split(/magic pattern/,'#TRANS 3042 {1 2} -1000.00')