#!/usr/bin/perl -w

use strict;

$_ = '1234567890';

s/.(?!.{0,3}$)/x/g;

print;