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

Oops. This was supposed to be a reply to the OP, not Transient.