perl字符串如何提取数字

$test="fsfsfs fsfsf 212 fsfs";$test =~ /(\d+)/;print "$1\n";