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