【Perl正则】如何区分这两个模式，顺便宣传一下我开发的语言OrcK

int a=3;
int function(int a)//...;
我想让Perl脚本识别C++中的类型，遇到上述这两个模式，求教一个正则表达式，区分这两个模式。
识别出来的类型信息放在哈希表里：$type{"a"}="int";函数却不放进来。

OrcK语言：
百度百科“OrcK语言”
下载地址：（0积分下载）
http://download.csdn.net/source/2732186
http://download.csdn.net/source/2769244