$_ = '1a';
print( (/(\d)/ ?  $1  : 0), (/(\D)/ ?  $1  : 0), "\n");  #aa
print( (/(\d)/ ? "$1" : 0), (/(\D)/ ? "$1" : 0), "\n");  #1a