my $datetime = '2009-09-22 20::45::30';
$datetime =~ s|(/d{4})-(/d{2})-(/d{2}) ([[:digit:]:]+)|$3/$2/$1[$4]|;
print $datetime;