select translate(str, '1'||translate(str, '1234567890','A'), '1')
from (
  select 'C11253A.a7.b40' str from dual
)
Posted by [czar]
,