#!/usr/bin/perl

$str=' publish_date: new Date(1431654084199) ' ;
$str =~ s/:\s*new Date\((\d+)\)\s*/&epoch2timestring($1)/ge;
print $str . "\n";

sub epoch2timestring{
	my ($e) = @_;
	$e=~s/.{3}$//; # eat 3 last digits
	my $result = scalar localtime($e);
	return ': "' . $result . '" '; # gmtime() ?
}

##</code><code>##

 publish_date: "Fri May 15 03:41:24 2015"