多行匹配取值

多行匹配取值
show clock
13:09:13.612 gmt Wed May 14 2008
TSOC-CRouter>
一个变量(or 文件).想取中间的3:09:13.612 gmt Wed May 14 2008 并付给一个变量
各位前辈有什么好办法,给点提示!

小弟测试的是:
$lines =~ s/.*(\d\d:\d\d:\d\d.*?\d+\s\d\d\d\d).*/$filename/gm; 不好使

my $context = '13:09:13..
my $context = '13:09:13.612 gmt Wed May 14 2008';
$context =~ /.*(\d\d:\d\d:\d\d.*?\d+\s\d\d\d\d).*/ and print $1;