perl -e"$_='1234567890';print 'x' x length substr($_,0,-4), substr($_,-4)"