用正则表达式如何取得字符串的日期和所包含的数字号码?

wolfman.wu

用正则表达式如何取得下面字符串的日期和store号码?
"DAY       : 08/10/2004"
"STORE  : 5128"

谢谢!

Perl小手

$a = "DAY : 08/10/2004" ;
$a =~ /DAY : (\d+\/\d+\/\d+)/;
print $1,"\n";