my $x = 'abc12345';
my $length = map { length } ($x =~ /(\d+)$/);