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";}}}
}