+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+foreach (@ARGV) {
+ &parse;
+}
+
+
+sub parse
+{
+ open FILE, "<:encoding(iso-8859-15)", $_ or die "Could not open '$_'";
+ my @list;
+ my $b = 0;
+ foreach (<FILE>) {
+ $b = 1 if /^Programme/;
+ next unless $b;
+ last if /^\r\n/;
+
+ next if /^Programme/;
+ next if /^Name/;
+ next if /7\-Zip/;
+ next if /Flash/;
+ next if /Citrix/;
+ next if /IrfanView/;
+ next if /\.NET/;
+ next if /Firefox/;
+ next if /Windows/;
+ next if /Hewlett/;
+ next if /Sophos/;
+ next if /Java/;
+ next if /Visual C\+\+/;
+ next if /MSXML/;
+ next if /Silverlight/;
+ next if /Update/i;
+ next if /Proof/;
+ next if /Reader/;
+ next if /Nero/;
+ next if /Internet Explorer/;
+ next if /Brows/;
+ next if /MUI/;
+ next if /MSN Site Access/;
+ next if /Address Book 7/;
+ next if /Web Platform Customizations/;
+ next if /HTML/;
+ next if /Active Directory/;
+ next if /Themes Setup/;
+ next if /NI/;
+ next if /VLC/;
+
+
+ /(.*?)\s{2,}/;
+ push(@list, $1);
+ }
+ @list = sort(@list);
+ print "$_\n";
+ print join("\n",@list);
+ print "\n\n";
+}