Parse Eve Epic Arc Info

use strict;

my %begin_count;
my %deliver_count;
my %abrv=qw(
S SistersOE
S5 SoE/Soc5
M Minmatar
C Caldari
G Gallente
GS Gallente/Synd
Gu Guristas
A  Amarr
AS Amarr/Sansha
An Angel
);

while (<>) {
    s/\r//g;
    if (/(.*):(.*)-->(.*)/ ){
        foreach (split(/ /,$2)){
            $begin_count{$_}++;
        }
        foreach (split(/ /,$3)){
            $deliver_count{$_}++;
        }
    }
}

for(sort(keys %abrv)) {
    if(defined $begin_count{$_} or defined $deliver_count{$_}) {
        print "$abrv{$_}\t-- ".($begin_count{$_}+0)."x Begin\t-- ".
            ($deliver_count{$_}+0)."x Deliver\n";
    }
}