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

my $doc =<<FORM;
<div><label>Emp ID:</label> AASDFG <br><label>Mobile Num:</label> 9999999999 <br><label>location:</label> India <br><label>Inservice:</label>Yes </div>
FORM

my @pairs = ($doc =~ m~<label>\s*(.*?)\s*</label>\s*(.*?)\s*<~g);

while (@pairs)
{
   my ($field, $value) = splice(@pairs,0,2);
   printf "%-15s %s\n", $field, $value;
}
__END__
Emp ID:         AASDFG
Mobile Num:     9999999999
location:       India
Inservice:      Yes