my @MEDIA;
for (`C:/Program Files/Veritas/Netbackup/bin/admincmd>bpimagelist -A -media -hoursago 24`) {
  s/\|/ /; 
  my ($Image) = split;
  for (`C:/Program Files/Veritas/Netbackup/bin/admincmd>nbemmcmd -listmedia -mediaid $Image`) {
    next unless m/Media ID|Data Expiration/i; 
    push @Media, $_;
  }
}
##</code><code>##

push @Media, grep { ! /Media ID|Data Expiration/i }  `C:/Program Files ...`;