#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use JSON::XS;
use File::Slurp qw(read_file);

my $lines = decode_json( read_file("test.json") );
my @results = grep { grep { $_ =~ /taco/ } values %$_ } @{ $lines };

print Dumper \@results;