while(length($line)>2){
        $line =~ s/([A-Z]([A-Z]{2}))/$2/;
        push(@dic, $1);
    }