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, $_;}
}