Misc data that is unimportant:false,true,false,"retrieved_on":1433507459,more misc data,nul;,true,"created_utc":"1433122764",
"retrieved_on":1433507472,misc data,"created_utc":"1433122764",true,false,more misc data
##</code><code>##

use strict;
use utf8;

open(FILE, '<C:/Users/li/perl/part1.txt') || die "File not found";
my @lines = <FILE>;
close(FILE);

my @newlines;
foreach(@lines) {
   $_ =~ s/([\d]{10})/localtime $1/eg;
   push(@newlines,$_);
}

open(FILE, '>C:/Users/li/perl/part1_CORRECTED.txt') || die "File not found";
print FILE @newlines;
close(FILE);

##</code><code>##

Misc data that is unimportant:false,true,false,"retrieved_on":Fri Jun  5 13:30:59 2015,more misc data,nul;,true,"created_utc":"Mon Jun  1 02:39:24 2015",
"retrieved_on":Fri Jun  5 13:31:12 2015,misc data,"created_utc":"Mon Jun  1 02:39:24 2015",true,false,more misc data