my $muster = qr{.*};
my $ersatz = 'replaced';
my $text = 'original';
$text =~ s/$muster/$ersatz/;