Select Code to Download

             if ($line =~ /^Parsing \[(sent. \d+) len. \d+\]: \[(.+)\]
+/) {
...
                 $nocomma_sent =~ s/,//g;
                 push( @{$one_match_ref}, $1, $nocomma_sent);
             }

             if ($line =~ /^Parsing \[(sent. \d+) len. \d+\]: \[(.+)\]
+/) {
...
                 $nocomma_sent =~ s/,//g;
                 push( @{$one_match_ref}, $nocomma_sent);
             }