my $bla = $result;
$bla =~ s/\$date/$date/;