#!/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