Perl regex

Hace unos dias me pregunto alguien como sustituir el $ por un caracter n veces, despues de buscar encontre que es asi:

#!/usr/bin/perl

$cadena="uno";
$cadena =~ s/$/" " x 2 /e;
print $cadena;

Referencia: Perlop