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