#!/usr/bin/perl

use strict;
use warnings;

my $line = "irgendwas \$pff \$pff_sum irgendwas ";

my $skalar = "\$pff";
my $new_name = "ABCDEFG";
if ($line =~ s/\Q$skalar\E\b/\$$new_name/g) {
   print $line; # Variablen braucht man nicht in double quotes setzen
}