#! perl
use strict;
use warnings;
use Data::Dump qw( pp );

my $var = <<END_RECORDS;
storeId = 12
phoneNumber = (270) 111-1111
nameString = My Store1
isOutOfStock = true
isReplenishable = true
isNotAvailable = false
availbilityCode = 0
stockStatus = Out of stock
distance = 4.41
city = Highland Village
stateCode = TX
zipCode = 11111
fullStreet = some random street address
storeTypeId = 1
isStorePUTEligible = true
walmartExpressStore = false
canAddToCart = false

storeId = 500
phoneNumber = (270) 111-1111
nameString = my store2
isOutOfStock = true
isReplenishable = true
isNotAvailable = false
availbilityCode = 0
stockStatus = In stock
distance = 6.82
city = Roanoke
stateCode = TX
zipCode = 76262
fullStreet = some random street address
storeTypeId = 1
isStorePUTEligible = true
walmartExpressStore = false
canAddToCart = false
END_RECORDS

my %hash;

while ($var =~ /storeId = (\d+)\s+(.*?)\n(?:\n|$)/gs)
{
    my ($key, $val) = ($1, $2);
    my  %h;
    $h{$1} = $2 while $val =~ /(\S+)\s*=\s*(.*?)\n/g;
    $hash{$key} = { %h };
}

print "storeID = $_\n", pp($hash{$_}), "\n" for
    grep { exists $hash{$_}->{stockStatus} &&
                  $hash{$_}->{stockStatus} =~ /(?:In|Limited) Stock/i } keys %hash;