#!/usr/bin/perl use 5.14.2; use warnings; my $n = <>; for(my $i = 0; $i < $n; $i++) { my $ok = 0; my ($hh, $mm) = split ':', <>; if($hh < 24 and $mm < 60 and $hh >= 0 and $mm >= 0) { $ok = 1 if $mm == 0; $ok = 1 if $mm == $hh; $ok = 1 if $mm == reverse $hh; $ok = 1 if ($hh*100 + $mm == 123) ||($hh*100 + $mm == 1234) ||($hh*100 + $mm == 2345); $ok = 1 if ($hh*100 + $mm == 1024) || ($hh*100 + $mm == 2048); } print "YES\n" if $ok == 1; print "NO\n" if $ok == 0; }