Going by presumably the same problem (Solved: Parsing JSON) this isn't the way to handle JSON. If you have JSON you use a parser to turn it back into a perl data structure (a nested hashref) and then you extract things from that. Trying to pull lines out piecemeal from it is . . . suboptimal, let's say, at best.

PerlMonger79:

I'm assuming you really mean simpler or easier to maintain rather than just shorter. I'd suggest something like this:

Roboticus@Waubli ~
$ cat t.pl
use strict;
use warnings;

# Valid records must have these fields
my @required = qw( name timestamp dl_retransmits_pct dl_throughout );

while (my $line = <DATA>) {
    my @missing = grep { $line !~ /$_/ } @required;
    if (@missing) {
        print "record $. missing fields: ", join(", ", @missing), ".\n
+";
    }
}

__DATA__
name timestamp dl_retransmits_pct dl_throughout foo
name dl_throughout timestamp dl_retransmits_pct
name timestamp dl_retransmits_pct
dl_throughout

Roboticus@Waubli ~
$ perl t.pl
record 3 missing fields: dl_throughout.
record 4 missing fields: name, timestamp, dl_retransmits_pct.
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.

use strict;
use warnings;

my @required = qw( name timestamp dl_retransmits_pct dl_throughput mac
+ );
my $req_regx = join( '|', @required );

while (my $line = <DATA>) {
    my %matched = map{ $_ => undef } $line =~ /($req_regx)/g;
    print $line if scalar( keys %matched ) == scalar( @required );
}

__DATA__
mac timestamp name dl_retransmits_pct dl_throughput is a hit
mac timestamp name dl_retransmits_pct throughout is a miss
name timestamp dl_retransmits_pct dl_throughput is a miss
foo mac name dl_throughput name timestamp name dl_retransmits_pct mac 
+mac is a hit
name timestamp dl_retransmits_pct is a miss
dl_throughput is a miss
[download]

(updated to fix grammar and spelling)

my $req_regx = join( '|', @required );
[download]

This is ok for the "pure" words given in the example, but there may be trouble if naughty regex metacharacters like * + ? ( ) [ ] etc. infiltrate the word list. See haukex's article Building Regex Alternations Dynamically for a thorough discussion of this technique.

---

Give a man a fish:  <%-{-{-{-<