my @txt_arr = split "\n",$text;
my $header_hash{"req_line"} = shift @txt_arr;
%header_hash = map { my $v = $_; (split /:/, $v)[0] => (split /:/,$v)[1] } @txt_arr;