Something along these lines (Untested):

for (qx<sudo /usr/openv/netbackup/bin/admincmd/bpimagelist -A -media -
+hoursago 24>){
  s/\|/ /;
  my ($Image) = split;
  for (qx<sudo /usr/openv/netbackup/bin/admincmd/nbemmcmd -listmedia -
+mediaid $Image>){
    next unless m/Media ID|Data Expiration/i;
    qx<echo \"$_\" | mailx -s "Daily" ishonbackup.nar@capgemini.com>;
  }
}
[download]