查出字符串指定位置替换成XX

我想要把123457890 这一串数字通过select查出来，将后面4位屏蔽掉，替换成××××
这几个号码长度不固定，有什么好的办法吗
 
select substr('123457890',1,length('123457890')-4)||'xxxx' from dual;
select substr('1234567890',1,length('1234567890') - 4 ) from dual
select substr('6546586548',1,length('123457890')-4)||'xxxx' from dual;