my $x = 'abc12345';
my ($y) = $x =~ /(\d+)$/;
my $length = length($y);