#!/usr/bin/perl -w
use strict;

chomp(my @lines = <DATA>);
my %results;

for my $line (@lines) {
    if (my ($field, $data) = $line =~ m/^(\w+).+?(<.+?>)$/) {
        $results{$field} = $data;
    }
}

for my $field (keys %results) {
    print "$field is $results{$field}\n";
}

__DATA__
To:sanju <sip:san@36.212.176.07>
From: paka<sip:sam@36.212.176.92>
Contact: sanjay<sip:san@36.212.176.07:5060>

##</code><code>##

Contact is <sip:san@36.212.176.07:5060>
To is <sip:san@36.212.176.07>
From is <sip:sam@36.212.176.92>

##</code><code>##

($field, $data) = $line =~ m/^(\w+).+?(<.+?>)$/