Select Code to Download

use strict;
use warnings;
my $data = 'abcd 2001020713';
my @nums = $data =~ /\d+/g;
print "$nums[0]\n";

use strict;
use warnings;
my $data = 'abcd 2001020713';
my $number = $data =~ /\d+/g;
print "$number\n";