Select Code to Download

#!C:/perl/bin -w
use strict;
...
__DATA__
DataLine1 {error 1 1 {^E 0-20-9:0-50-9:0-50-9.*$} {^E 0-20-9:0-50-9:0-
+50-9.*$}} {three 1 1 {^.*35=A.*$|^.*35=5.*$} {^.*35=A.*$|^.*35=5.*$}}
+ {fixv 1 1 ^.*VFIXFxProxy.*Disconnected ^.*VFIXFxProxy.*Disconnected}
DataLine2 error 1 1 {^E 0-20-9:0-50-9:0-50-9.*$} {^E 0-20-9:0-50-9:0-5
+0-9.*$} {three 1 1 {^.*35=A.*$|^.*35=5.*$} {^.*35=A.*$|^.*35=5.*$}} {
+fixv 1 1 ^.*VFIXFxProxy.*Disconnected ^.*VFIXFxProxy.*Disconnected}

         ***** STARTING dataline 1 ****

...
                          }
     );
                ~~~~~~~~~~~~~~~~ ending dump

$test =~ /
      (                 # capture
...
      [^}]+?            # fol by anything_not_a_closingcurly, one-or-m
+ore_times-but-as_few_as_poss
      \}{2}             # closingcurly twice
      )/gx;            # end capture, global, xtended syntax, end if_t
+est