my @MEDIA;
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;
    push @MEDIA, $_;
  }
}

if(@MEDIA){
  open(FF, "|/mailx -s 'Daily' mel.rupani@capgemini.com") or die $!;
  for (@MEDIA){
        print FF $_ . "\n";
  }
  close FF;
}