while ($currentfile = <FILE>)
{
    if ($currentfile =~ /^\d{6}/ and $search_date eq substr($currentfile,52,10)
    {
        print RESULTS $currentfile;
        print RESULTS while <FILE>;
    }
}