#!/usr/bin/perl
while($line = <STDIN>) {
    while($line =~ /\[(\d+),([\d\.]+)\]/g) {
	($tms,$kwh) = ($1,$2);
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($tms/1000);
	print sprintf("\"%04d-%02d-%02d %02d:%02d\",\"%.2f\"\n",$year+1900,$mon+1,$mday,$hour,$min,$kwh);
    }
}