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