'abc12345' =~ /(\d+)$/; print $+[1] - $-[1];