Select Code to Download

use Time::Local qw( timelocal );

s/(\d{4})-(\d{2})-(\d{2})/ timelocal(0,0,0, $3,$2-1,$1) /ge;