\1 better written as $1 at ./z.pl line 7.

##</code><code>##

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

##</code><code>##

  $a =~ s/(?<=^\S{5})\S{4}/xxxx/;