Help for this page
Select Code to Download
Select
or
download this
my ($number) = $data =~ /(\d+)/;