请问用perl怎么统计每一行中某个单词出现的位置?

请问用perl怎么统计每一行中某个单词出现的位置?
譬如说,how old **are** you?
where **are** you from?
“are”这个单词在第一行是第三个,第二行是第二个,我想得到的是
3 how old **are** you?
2 where **are** you from?

利用正则：
my $line = 'how old are you?';
$line /(.)\bare\b/ or die Can't match\n; # 匹配are,\b为单词边界；
my $string = $1; # 捕获括号中的内容,也就是are之前的内容；
my $n = $string s/ //g; # 将前面的空格换成空,返回成功个数；
print $n+1 , $line\n; # 前面的空格数加1就是are单词的位置；
当然,如果你认为用空格数判断单词个数不严谨,也可以改成带字符边界的正则,这里就不多说了.