my $currentfile = do { local $/ = undef; <FILE> };
my @parts = split /(^\d{6}).{46}$search_date)/m, $s, 2;
print RESULTS @parts[1,2] if $parts[1];