extracting *just* matched text

[WaspCatcher]

hi,
    how does one extract *just* the matched text in a regular expression,
e.g.

my $text = "Hello 1234, come in";
if ($text =~ /\d{4,4}/)
{
    #grab just the 4 digit number
}

thanks



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]