#!/usr/bin/perl
use strict;

my ($if, %hash, $key);
open(FILE, "<f.txt");

while(<FILE>) {
    chomp $_;
    ($if = $_) =~ s/^(\w+?):.+/$1/ if $_ =~ m/^\w+:/;
    ($hash{$if} = $_) =~ s/.+status:\s+(.+)/$1/ if $_ =~ m/status/;
}

close(FILE);

foreach $key (keys %hash) {
    print "$key: $hash{$key}\n";
}

exit;