как выделять из строковых выражений цифры?

как мне из строкового выражения  $text в котором записано - "text4.txt"  выделить 4-ку т.е как выделять из строковых выражений цифры?

[Green Kakadu]

$text=\'text4.txt\';
if ($text=~/(\\d+)/){$num=$1;}
else{$num=0;}
print $num;

огромное тебе спасибо... я в перле только начал разбираться .. раньше на паскале маньячил и вообщем то приуспел в нем, потом delphi ну а щас вот perl -ом решил побаловаться ....

[Green Kakadu]

можно еще и так:

$text=\'text4.txt\';
$num=$text;
$num=~s/\\D//g;#Удаляется все кроме цифр
print $num;

@nums = m/(\\d+\\.?\\d*|\\.\\d+)/g;
Получишь все цифры.