++$stats{ $1 } while $res =~ m[:(.:.)]g;