use strict;
use warnings;
use Data::Dumper;

my %record;
while (<>) {
    if(/(.*):(.*)/)
    {
        $record{$1}=$2;
    }
}
print Dumper \%record;
[download]

Input

Name : Hari
Ph.Num:123456
Address :Mascot


Output

$VAR1 = {
'Ph.Num' => '123456',
'Address ' => 'Mascot',
'Name ' => ' Hari'
};