$var = 'dies ist;) ein Test';
$dateiname = 'test.txt';
$var =~ s/;\)/$dateiname/;
print $var;