use strict;
use warnings;

my $temp = 'Plugh';
my $str = <<STR;
To %ad or not to %ad,
that is the question.
Oh %ad on you.
STR

$str =~ s/%ad/$temp/g;
print $str;