#Perl @PerlWChallenge 366 Task 2: Valid Times
#noxp
```
perl -E '
for(@ARGV){say"$_ -> ",c($_);}sub c($t){return v($t)unless$t=~/\?/;my $c=0;for(0..9){
$c+=c($t=~s/\?/$_/r);}return$c;}sub v($t){($h,$m)=split ":", $t;0<=$h<24 && 0<=$m<60;}
' "?2:34" "?4:?0" "??:??" "?3:45" "2?:15"
```