$ diff a50.pl.txt a54.perl.txt
54,55c54,57
< $tag="<[^>]*>[^<]*</[^>]*>";
< $sign="<PF:D_5003[^>]*>([+-])</PF:D_5003>";
---
> $bra="(?:>|\\s+[^>]*>)";
> $ins="[^<]*";
> $tag="<[^>]*>$ins</[^>]*>";
> $sign="<PF:D_5003$bra([+-])</PF:D_5003>";
57c59
< $lin="<LIN>$s<PF:D_0805[^>]*Value=\"(\\w+)\">$s</PF:D_0805>$s</LIN>";
---
> $lin="<LIN>$s<PF:D_0805\\s[^>]*Value=\"(\\w+)\">$s</PF:D_0805>$s</LIN>";
60c62
< $ftx="<FTX>$s$tag$s$tag$s<C108>$s((?:<D_4440>[^<]*</D_4440>$s)+)</C108>$s</FTX>";
---
> $ftx="<FTX>$s$tag$s$tag$s<C108>$s((?:<D_4440>$ins</D_4440>$s)+)</C108>$s</FTX>";
66,67c68,82
< #<!ELEMENT SG6 (RFF*, DTM*, MOA, FTX*)>
< $sg6="$s(?:$rff$s)*(?:$dtm$s)?$moa$s(?:$ftx$s)?</SG6>";
---
> # On 2009-10-12 Postfinance changed the format of SG6 element by adding two sub-elements PF:TGT and PF:EPC
> # OLD <!ELEMENT SG6 (RFF*, DTM*, MOA, FTX*)>
> # NEW <!ELEMENT SG6 (PF:TGT*, RFF*, DTM*, MOA, PF:EPC*, FTX*)>
> # NEW <!ELEMENT PF:TGT (PF:D_4752, PF:D_4753, PF:D_4754?)>
> # NEW <!ELEMENT PF:EPC (PF:D_4752, PF:D_4753, PF:D_4754?)>
>
> $pfins="(?:<PF:D_4752$bra$ins</PF:D_4752>)$s(?:<PF:D_4753$bra$ins</PF:D_4753>)$s(?:<PF:D_4754$bra$ins</PF:D_4754>)?";
> $pftgt="<PF:TGT$bra$s$pfins$s</PF:TGT>";
> $pfepc="<PF:EPC$bra$s$pfins$s</PF:EPC>";
>
> # OLD <!ELEMENT SG6 (RFF*, DTM*, MOA, FTX*)>
> # OLD $sg6="$s(?:$rff$s)*(?:$dtm$s)?$moa$s(?:$ftx$s)?</SG6>";
>
> #<!ELEMENT SG6 (PF:TGT*, RFF*, DTM*, MOA, PF:EPC*, FTX*)>
> $sg6="$s(?:$pftgt$s)?(?:$rff$s)*(?:$dtm$s)?$moa$s(?:$pfepc$s)?(?:$ftx$s)?</SG6>";
71a87
>

$