#!/usr/bin/perl
# your code goes here
my $test = '2016-05-01T00:00:00';
my $uusi = $test =~ s/(\d+)-(\d+)-(\d+)T00
:00
:00
/$1-$2-$3/r
;
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKbXkgJHRlc3QgPSAnMjAxNi0wNS0wMVQwMDowMDowMCc7CgpteSAkdXVzaSA9ICR0ZXN0ID1+IHMvKFxkKyktKFxkKyktKFxkKylUMDA6MDA6MDAvJDEtJDItJDMvciA7CgpwcmludCAkdXVzaTs=