sub findAllDigits { 
$_=pop;s;\d;($&&~433)x$&>4?2:$&;geese};
}