新人请教perl中正则表达式的问题!

新人请教perl中正则表达式的问题!

小弟在目录下有一堆文件,是按ip命名的,文件名如下:

s1240.134.33.1.142.20080201140908_108_og_test.dat
s1240.134.33.67.142.20080201140725_649_og_test.dat
s1240.134.33.67.143.20080201140902_096_og_test.dat
s1240.134.34.5.40.20080201141943_552_og_test.dat
s1240.134.34.66.45.20080201142015_633_og_test.dat
s1240.134.34.66.45.20080201143357_634_og_test.dat
s1240.134.34.69.133.20080201141949_552_og_test.dat
s1240.134.34.72.169.20080201142055_768_og_test.dat
s1240.134.34.72.169.20080201143430_769_og_test.dat
s1240.134.34.73.18.20080201141849_629_og_test.dat

正则表达式".*og.*.dat"可以列出所有的文件,但目前我只想取出以s1240.134.33.1.142开头的若干dat文件
这个文件请问正则表达式改如何书写呢,请高手帮忙!

直接文件名不就行了吗
s1240.134.33.1.142.20080201140908_108_og_test.dat
请高手帮忙看看!
/^s1240\.134\.33\.1\.142\..*\.dat$/


先抛块砖吧,