Ocultar los primeros N digitos o los últimos con una expresion regular

Ocultar los primeros caracteres de una cadena

Supongamos que queremos ocultar los primeros 12 caracteres de una cadena que tiene más de 11 caracteres, cambiando esos caracteres por letras x:
$cadena= 'abcdefghijklmnopq';
$cadena =~ s/^............/xxxxxxxxxxxx/;
print 'Cadena: ' . $cadena;
xxxxxxxxxxxxmnopq

Ocultar los últimos caracteres de una cadena

Supongamos que queremos ocultar los ultimos 4 caracteres de una cadena que tiene más de 3 caracteres, cambiando esos caracteres por letras x:
$cadena= 'abcdefghijklmnopq';
$cadena =~ s/....$/xxxx/;
print 'Cadena: ' . $cadena;

abcdefghijklmxxxx