Use of uninitialized value in substitution (s///) at ./alc_test.pl line 40. 
Use of uninitialized value in pattern match (m//) at ./alc_test.pl line 41. 
Use of uninitialized value in concatenation (.) or string at ./alc_test.pl line 47. 
IROUTE: [6005494c523142] (ILR1B) === OROUTE: [] (THANKS)
Use of uninitialized value in substitution (s///) at ./alc_test.pl line 31. 
Use of uninitialized value in pattern match (m//) at ./alc_test.pl line 32. 
Use of uninitialized value in substitution (s///) at ./alc_test.pl line 40. 
Use of uninitialized value in pattern match (m//) at ./alc_test.pl line 41. 
Use of uninitialized value in concatenation (.) or string at ./alc_test.pl line 47. 
Use of uninitialized value in concatenation (.) or string at ./alc_test.pl line 47. 
Died at ./alc_test.pl line 26.

##</code><code>##

Name        : >Mick<    [Mick]
IC          : '91919191929'     (9191919129)
PC          : 123       (123)
Number      : >1960132400000<   (1960132400000)
Location    : >000e 0036<       (000e 0036)
extension   : >< 
Capability  : >"CARES<          ("CARES)
Info        : >6005494c523142<  (6005494c523142)

Name        : >Nick<            (Nick)
IC          : '1235467000'      (1235467000)
PC          : 124               (124)
Number      : >1960192500000<   (1960192500000)
Location    : >000f 0034<       (000f 0034)
extension   : ><
Capability  : >< 
Info        : ><

##</code><code>##

#!/usr/bin/perl -w

use constant INROUTE => "THANKS";
my $iroute = "XXX";
my $oroute = "YYY";

while (1) {
        $/ = "";
        @entries = ();

        open (F, "cat test.txt |") or warn ("Can't open test.txt"), next;
        while (<F>) {
                next unless $_ !~ /^#/;
                s/\s+:/:/g;
                s/(\'|<|>|\")//g;

                my $ref_entry = {};
                foreach (split /\n/) {
                        $$ref_entry{$1} = $2 if /^(.*):\s+(.*)\((.*)\)$/;

                }
                push @entries, $ref_entry;
        }
        close (F);
        printreport() if scalar(@entries) > 1;
        die;
}

sub printreport {
        foreach $ref (@entries) {
                ($iroute = $$ref{"Info"}) =~ s/\s+//g;
                if ( $iroute !~ /""|\.|^$|^\s+$/ ) {
                        @str1 = unpack ("x4 A2 A2 A2 A2 A2", $iroute);
                        $tmproute = join ('', map {chr hex} @str1);
                        ($inroute = $tmproute) =~ s/\s+//g;
                } else {
                        $inroute = INROUTE;
                }

                ($oroute = $$ref{"Required Bearer Capability"}) =~ s/\s+//g; 
                if ( $oroute !~ /^$|""|^\s+$/ )  {
                        $outroute = $oroute;
                } else {
                        $outroute = INROUTE;<br>
                }

                print ("IROUTE: [$iroute] ($inroute) === OROUTE: [$oroute] ($outroute)\n");
        }
}

Hopefully, somebody can give me some advise.

Thanks you,
bh_perl