$a = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ;
($a = $a ) =~ s/^\S{5}(\S{4})\S+/\1xxxx/ ;