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