my $datetime = '2009-09-22 20::45::30';
(my $print_date = $datetime) =~
    s{(\d+)-(\d+)-(\d+) (.*)}{$3/$2/$1\[$4]};
print("$print_date\n");