my $length = $x =~ /(\d+)$/ ? length $1 : 0;