#Perl @PerlWChallenge 367 Max Odd Binary and Conflict Events https://wlmb.github.io/2026/03/30/PWC367/
#noxp

#Perl @PerlWChallenge 367 Task 2: Conflict Events
#noxp
```
perl -E '
$d=1440;for(@ARGV){@m=map{($h,$m)=split":";60*$h+$m}split" ";do{$m[$_+1]
+=$d if$m[$_]>$m[$_+1]}for(0,2);say"$_ -> ",c(0,@m)||c($d,@m)||c(-$d,@m)?
"T":"F";}sub c($o,@m){$m[0]+$o<$m[3]&&$m[1]+$o>$m[2]}
' "10:00 12:00 11:00 13:00" "09:00 10:30 10:30 12:00" "14:00 15:30 14:30 16:00" \
"08:00 09:00 09:01 10:00" "23:30 00:30 00:00 01:00"
```

#Perl @PerlWChallenge 367 Task 1: Max Odd Binary
#noxp
```
perl -E '
for(@ARGV){$i=$_;1 while s/01/10/g;s/^1(.*)$/${1}1/; say "$i -> $_"}
' 1011 100 111000 0101 1111
```

#Perl @PerlWChallenge 366 Count Prefixes and Valid Times https://wlmb.github.io/2026/03/27/PWC366/
#noxp

#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"
```

#Perl @PerlWChallenge 366 Task 1: Count Prefixes
#noxp
```
perl -E '
for my($a, $s)(@ARGV){say"$a; $s -> ",0+grep{$s=~/^$_/}split/,\s*/,$a;}
' "a, ap, app, apple, banana" apple \
"cat, dog, fish" bird \
"hello, he, hell, heaven, he" hello \
", code, coding, cod" coding \
"p, pr, pro, prog, progr, progra, program" program
```