use Data::Dumper;

use strict;
use warnings;

my $t = "abc";
my $b = "x";
my $l = "xyzabcdef";

$l =~ s/$t/$b/g;

print $l; 

##</code><code>##

xyzxdef