Select Code to Download

use strict;
use Win32::OLE::Const;
...
  return unless $_[1] =~ /Excel/;
  print join " ",$_[1],$_[4],"\n";
}