I have received the below headers and i will need to capture the code value.

If that is true then the procedure is very simple. Here is how to extract the value of the server response header, for example:

use strict;
use warnings;

use LWP::UserAgent;
use Test::More tests => 1;

my $ua = LWP::UserAgent->new;
my $res = $ua->get ('https://www.perlmonks.org/?node_id=11133845');
is $res->header ('server'), 'Apache';
[download]

See also How to ask better questions using Test::More and sample data.