use strict; 
use warnings; 
use Data::Dumper qw( Dumper ); 
my %hash; 
while (<DATA>) { 
    chomp; 
    next if (  !/(:?host_name|current_state|notifications_enabled)/ ); 
    %hash = ( %hash, split /=/ ); 
} 
print Dumper \%hash; 
__DATA__ 
service {  
host_name=abc.example.com  
current_state=0  
no_more_notifications=0  
notifications_enabled=0  
scheduled_downtime_depth=0  
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Data::Dumper; 
 
my %service; 
 
open my $dat_fh, '<', 'status.dat' or die "failed to open 'status.dat <$!>\n"; 
 
while ( my $line = <$dat_fh> ) { 
    if ( $line =~ /^service {/ .. $line =~ /^}/ ) { 
        next if $line =~ /^(service {|})/; 
        chomp $line; 
        my ($key, $value) = split /=/, $line; 
        $service{$key} = $value; 
    } 
} 
close $dat_fh; 
 
print Dumper \%service;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Benchmark qw(:all); 
 
cmpthese(-1, { 
    'Fishmonger' => \&Fishmonger, 
    'Bill'       => \&Bill, 
    'Saurabh'    => \&Saurabh, 
}); 
 
 
sub Fishmonger { 
    my %service;  
    open my $dat_fh, '<', 'status.dat' or die "failed to open 'status.dat <$!>\n"; 
 
    while ( my $line = <$dat_fh> ) { 
        if ( $line =~ /^service {/ .. $line =~ /^}/ ) { 
            next if $line =~ /^(service {|})/; 
            chomp $line; 
            my ($key, $value) = split /=/, $line; 
            $service{$key} = $value; 
        } 
    } 
    close $dat_fh; 
} 
 
sub Bill { 
    my %hash;  
    open my $dat_fh, '<', 'status.dat' or die "failed to open 'status.dat <$!>\n"; 
 
    while ( <$dat_fh> ) { 
        chomp;  
        next if (  !/(:?host_name|current_state|notifications_enabled)/ );  
        %hash = ( %hash, split /=/ );  
    } 
    close $dat_fh; 
} 
 
sub Saurabh { 
    my @array=("host_name","current_state","notifications_enabled"); 
    my %hash; 
 
    for $_ (@array) { 
        my $keyname=`grep "$_" status.dat`; 
        my $val=substr(substr($keyname,rindex($keyname,'=')),1); 
        if(($keyname ne "") && ($val ne "")) { 
            chomp($val); 
            $hash{$_}=$val; 
        } 
    }     
}

D:\perl>benchmark.pl 
             Rate    Saurabh       Bill Fishmonger 
Saurabh     118/s         --       -92%       -93% 
Bill       1419/s      1100%         --       -13% 
Fishmonger 1638/s      1286%        15%         --