my $datetime = '2009-09-22 20::45::30';
        my ($date,$time) =  $datetime =~/(.+\s)(.+)/;

		$date =~ s/^\s+|\s$//;
		my @print_date = split ("-",$date);
		@print_date = reverse @print_date;
		print join ("/",@print_date) ."[$time]";