This text looks like JSON (http://json.org). JSON can be easily processed by JSON or JSON::XS modules.

use strict;
use warnings;

use Data::Dumper;
use JSON;

my $json_text = q{
{
    "InstanceStatuses": [
    {
        "InstanceId": "i-308c0b3c",
            "InstanceState": {
                "Code": 16,
                "Name": "running"
            },
            "AvailabilityZone": "us-west-2b",
            "SystemStatus": {
                "Status": "ok",
                "Details": [
                {
                    "Status": "passed",
                    "Name": "reachability"
                }
                ]
            },
            "InstanceStatus": {
                "Status": "ok",
                "Details": [
                {
                    "Status": "passed",
                    "Name": "reachability"
                }
                ]
            }
    }
    ]
}
};

# decode JSON text
my $hashref  = decode_json $json_text;

# dump the hashref
print Dumper( $hashref ) . "\n";

# access Name
print "Name: '$hashref->{InstanceStatuses}->[0]->{InstanceState}->{Nam
+e}'\n";
[download]

Hi pme, Thanks a lot for your help.

I want a pony!

  But you want me to muck out your stable?

Pls read PerlMonks FAQ. This is a place where you can get a lot of help learning, if you care to try, but it's not code-a-matic where you put in a request and the Monks do your work for you.

I want to retrieve "Name":"running" line out of it.Please help.

Thanks a lot.It is working fine.But I need to read that json input from a file.I can't hard code that into the code.Please help with that

This isn't a code writing service. For one reason or another you've chosen perl as the tool for this job. Learn how to use it:

• http://learn.perl.org, with first steps
• The documentation
• Tutorials->Getting Started with Perl
• Modern Perl (see also perl.org/library)

Please read the relevant part of the docs you have been addressed to.

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.