perl正则表达式如何匹配多个单词？

redalx

我这边有一个汇报的文档，里面记录了用户反馈信息，我需要提取所有的用户名，文档格式比较混乱，用户名都是由英文，数字，@，和下划线构成，我已经用正则表达式@un  =   $_   =~/[\w\@]+/gi获取出来，但是和文中其他的数字混淆，所以我希望用username，user，yonghu，用户等几个特定的单词来区隔，可是不知道怎么用多个单词做正则条件，请指教：
测试的文本如下：
作为教师，我们不可能使用暴力，也清 用户:fdfs楚不能触犯国家法律，于
  是我们大家决定采用不讲课、不布置作业、让学生自习等方式来表示user:ad2123抗议，争取引起政府和username:redalx新闻媒体的注意。
  ”重庆市永川区的李老师说，“当然在这个过程中，也有个别老  师情绪激动，连教室都不愿意yonghu:fsffs进了。”此番停课、罢教活动最早出现在四川省成都市下辖的郫县。

heejun

2. #!/usr/bin/perl
3. use strict;
4. use warnings;
5. {
6.                 undef $/;
7.                 $_ =<DATA>;
8.                 }
9. my @names = m/(?:username|user|yonghu|用户):([\w\@]+)/gi;
10. print $_,"\n" foreach @names;
11. __DATA__
12. 作为教师，我们不可能使用暴力，也清 用户:fdfs楚不能触犯国家法律，于
13. 是我们大家决定采用不讲课、不布置作业、让学生自习等方式来表示user:ad2123抗议，争取引起政府和username:redalx新闻媒体的注意。
14. ”重庆市永川区的李老师说，“当然在这个过程中，也有个别老 师情绪激动，连教室都不愿意yonghu:fsffs进了。”此番停课、罢教活动最早出现在四川省成都市下辖的郫县

复制代码

你这个测试例子给的不好