求助字符串处理

求助字符串处理

求助字符串处理
$a=" asdfdsds 123 "
请问如何将数字取出?
谢谢啦
$a =~ /(\d+)/--print $.
$a =~ /(\d+)/
print $1;