wlmb

#Perl @PerlWChallenge 373 Task 2: List Division
#noxp
```
perl -E '
for my($l,$n)(@ARGV){$s=(@L=split" ",$l)/$n; $r=@l%$n;say "$l, $n -> ",
$n>@L?-1:map{"(".join(" ",splice(@L,0,$s+($_<=$r))).")"}(1..$n)}
' "1 2 3 4 5" 2 "1 2 3 4 5 6" 3 "1 2 3" 2 "1 2 3 4 5 6 7 8 9 10" 5 \
"1 2 3" 4 "72 57 89 55 36 84 10 95 99 35" 7
```

#Perl @PerlWChallenge 373 Task 1: Equal List
#noxp
```
perl -E '
for my($x,$y)(@ARGV){say"$x; $y -> ",f($x)eq f($y)?"T":"F";}sub f($x){join"",split/\s*,\s*/,$x}
' "a, bc" "ab, c" "a, b, c" "a, bc" "a, bc" "a, c, b" "ab, c, " ", a, bc" "p, e, r, l" "perl"
```