if ($line =~ /^Parsing \[(sent. \d+) len. \d+\]: \[(.+)\]
+/) {
                 #$one_match_ref->[1] = $1; ##Multiple in file
                 #$one_match_ref->[2] = $2;
                 #$one_match_ref->[2] =~ s/,//g;
                 my $nocomma_sent = $2;
                 $nocomma_sent =~ s/,//g;
                 push( @{$one_match_ref}, $1, $nocomma_sent);
             }