#! /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";
}