my $len = length  shift @{ [ $x =~ /(\d+)$/ ,''  ] };