Select Code to Download

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

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

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