my @MEDIA;
chdir 'C:\Program Files\Veritas\Netbackup\bin\admincmd\';

for ( qx{bpimagelist -A -media -hoursago 24} ){
    s/\|/ /;
    my ($Image) = split;
}