my $string = 'ID13';
say scalar( $string =~ s/\d+// );