$numbers = () = ($src_string =~ m/\d+/g);

URL:
Обсуждается: http://www.opennet.me/tips/info/625.shtml

• Как в Perl скрипте сосчитать число совпадений в regex.,entrix, 02:18 , 09-Апр-11

$numbers = @{ [ $string =~ /\d+/g ] };