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

##</code><code>##

my $string = 'ID13';
say join('', grep( /[A-Za-z]/, split('',$string) ) );