#!/usr/bin/perl -w
use strict;

symdate();

sub symdate{
my($h,$n,$d,$m,$y,$r);my@x=qw(1001 2002 3003 0110 1111 2112);for('000010'..'195921'){$r=reverse$_;$h=substr($_,0,2);$n=substr($_,2,2);$d=substr($_,4,2);$m=substr($r,0,2);$y=substr($r,2,4);for(@x){if($_ eq $d.$m){if(($h>=0)&&($h<24)&&($n>=0)&&($n<60)){print "$h:$n $d/$m $y\n";}}}}
}