my $var = 'blubb';
my $re = qr~$var~;
my $txt = 'blubber blub blubb';
$txt =~ s~$re~schnapp~g;