#!/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";}}}}
}

##</code><code>##

sub symdate
{
my($f,$r);for('000000'..'235930'){$f=$_.reverse;$r='(..)'x6;$f=~s/$r/$1:$2 $3\/$4 $5$6/g;for(qw(1001 2002 3003 0110 1111 2112)){if((
$_ eq $3.$4)&&($1<24)&&($2<60)){print"$f\n";}}}
}

##</code><code>##

sub symdate
{
for(qw(01 10 20 30 11 21)){for$h('00'..'23'){for$m('00'..'59'){$s="$h$m$_";$r='(..)'x6;$f=$s.reverse$s;$f=~s/$r/$1:$2 $3\/$4 $5$6/;print$f,"\n";}}}
}