list($type,$id,$no,$date1,$text,$date2)=split(/magic pattern/,'#VER "" 3 19950101 "Overforing BG till PG" 19950608')

##</code><code>##

list($type,$id,$no,$date1,$text,$date2)=split(/magic pattern/,'#VER "Xy Z" 3 19950101 SingleWord 19950608')

##</code><code>##

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