use strict;
use warnings;

use HTML::TokeParser;

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

my $p = HTML::TokeParser->new( \$document );

while ($p->get_tag('label')) {
    my $text = $p->get_text('br');
    my $t2   = (split /:/, $text)[1];
    print "$t2\n";
}

__END__

  AASDFG
  9999999999
  India
 Yes