subscription-manager helper??

a.pl

#!/usr/bin/env perl

$flag = 0;
while (<>) {
        chomp;
        if (/^Subscription Name:\s+(.*)/) {
                $subscription_name = $1;
                $flag = 1;
        }

        elsif (/^$/) {
                print "$subscription_name\t$system_type\t$pool_id\n";
        }

        elsif (/^Pool ID:\s+(.*)/) {
                $pool_id = $1;
        }

        elsif (/^System Type:\s+(.*)/) {
                $system_type = $1;
        }

        else {
        }
}