Inputfile:
 -------------
 ...
 ...
 Arzt: 73011220
 ...

 ...

 K 012345\tF999087
 ...
 
 
 recordSpec:
 -----------------
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<record kind="special">
	<special>
	<![CDATA[

		# remember Arztnr
		if ( /^Arzt: ([0-9]{7})/ )
		{
      $satz{"ArztNr"}=$1;
    }

		# record is fully read
		if ( /^K ([0-9]{5})\t([A-Z][0-9]{6})/ )
		{
			# remember VKNR and fbpos 
			$satz{"VKNR"}  = $1;
			$satz{"fbpos"} = $2;

			# write record
			&update();
			
			# Important!: reset data for next record
			%record=();
		}
	]]>
	</special>
</record>