$lines =~ s/\n/ /g;
$lines =~s /(\d{4}-\d{2}-\d{2})/\n$1/g;
$newline = "$File::Find::name"."$lines";
print IN "$newline";