Remplacer une chaine de caractères en Perl

Quoi de plus simple de remplacer en Perl une chaine de caractères dans un fichier, le tout est de s’en souvenir.

Fichier d’origine:

chaine1
chaine2
chaine3

>> On veut changer chaine1 en mot1 directement dans le fichier, sans sauvegarde.

perl -pi -e 's/chaine1/mot1/g' fic.txt

>> Pour garder une sauvegarde du fichier d’origine.

perl -pi.back -e 's/chaine2/mot2/g' fic.txt

cat fic.txt.back (fichier sauvegardé avant modif)
mot1
chaine2
chaine3
cat fic.txt (fichier modifié)
mot1
mot2
chaine3