Usando perl para trocar informações dentro de um arquivo texto

Usando perl para trocar informações dentro de um arquivo texto

/usr/bin/perl -p -i -e "s/$1/$2/g" $3

$1 = String original
$2 = String nova
$3 = Nove do arquivo

Exemplo:

/etc/apt# /usr/bin/perl -p -i -e "s/br.archive/old-releases/g" sources.list