my $result = `$command`;
my @lines = split /\n/, $result;
for(@lines) {
    next if /<BEA-\d+>/;
    next if !/\S/;
    print "$_\n";
}