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

print "the number in $x is $length long";
__END__
the number in abc12345 is 5 long
[download]

update or what Tanktalus said... I'm beginning to see the attraction of having First Post! ;)