如何匹配中文句号（。）

我习惯这样写;
open (DATA,"E:/big_camel/TR.txt") or die "$!";
while(<DATA>){
  print "$1,\n" if ($_=~/。\s*(\w)/);
}

TR.txt内容如下:
Hello,Lonki:
Thank you。
thanks for your reply!

无法获取第3行首字母t,这段小代码问题出在哪里呢?

之前不是问过你这些字符串是@还是$吗?

while (<DATA>)一次只能读一行... 怎么可能获取到t....

哦,了解了,谢谢啦!