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