chomp $date;
$html =~ m{\Q$date\E(.*?)..............}ism;

##</code><code>##

open my $HTML, '>', 'myhtml.html' or die $!;
print $HTML "$1\n";
close $HTML or die $!;