Another possible solution...

#!/usr/bin/perl

use strict;

my $old_dt = '2009-09-22 20::45::30';
my ($year, $mon, $day, $time)
  = $old_dt =~ /(\d{4})-(\d{2})-(\d{2})\s(.*)/;
print "$day/$mon/${year}[$time]";
[download]