...
while(<DATA>){
        /:\s(\S+)$/ => $1
           and $code{$1}++
}
...