how to extract digit from a line in Perl

[Franklin]

Hello:   I want to extract the digit from a line of text. For exmple, for a text line: TSC2101Net, how can I write a script to extract 2101 and print it?   Thank you very much in advance!   Bestwishes Franklin     ____________________________________________________   IncrediMail - Email has finally evolved - Click Here