date-1

#!/usr/bin/env perl
use warnings;

chomp( $date=qx/date/ );

print "[[$_]]" foreach @date = split / /, $date;
print "\n";

$"="/"; print "@date[5,1,2]\n";