#Perl @PerlWChallenge 365 Alphabet Index Digit Sum and Valid Token Counter https://wlmb.github.io/2026/03/16/PWC365/
#noxp
Perl Weekly Challenge 365.

Alphabet Index Digit Sum and Valid Token Counter

#Perl @PerlWChallenge 365 Task 2: Valid Token Counter
#noxp
```
perl -E '
$r="[[:alpha:]]+";for(@ARGV){say "$_ -> ", 0+grep /^$r(-$r)?[\.,!]?$/,split " "}
' "cat and dog" "a-b c! d,e" "hello-world! this is fun" \
"ab- cd-ef gh- ij!" "wow! a-b-c nice."
```
#Perl @PerlWChallenge 365 Task 1: Alphabet Index Digit Sum
#noxp
```
perl -MList::Util=sum -E '
@n{a..z}=(1..26);for my($s,$k)(@ARGV){$x=join"",map$n{$_},split "",$s;
$x=sum split "",$x for(1..$k);say"$s, $k -> $x"}
' abc 1 az 2 cat 1 dog 2 perl 3
```
#Perl @PerlWChallenge 364 Task 2: Goal Parser
#noxp
```
perl -E '
for(@ARGV){$i=$_; s/\(\)/o/g;s/\(al\)/al/g; say "$i -> $_ "}
' "G()(al)" "G()()()()(al)" "(al)G(al)()()" "()G()G" "(al)(al)G()()"
```
#Perl @PerlWChallenge 364 Task 1: Decrypt String
#noxp
```
perl -E '
@m{1..9,map "$_\#",10..26}=("a".."z");for(@ARGV){$i=$_;s/(\d\d\#)/$m{$1}/eg;s/(\d)/$m{$1}/eg;
say "$i -> $_"}
' "10#11#12" "1326#" "25#24#123" "20#5" "1910#26#"
```

I hope...wherever he is, that Vic Gundotra ('Father' of Google+) is having a nice day!

It was probably one of the last 'good' Google products.

#google+ #googleplus #noxp

RE: https://mastodon.ie/@padraig/115972997489239318

On Mona 7, there is 'discount' for Mona Pro and Mona Pro Max subscribers.

If you have Mona Pro, the upgrade is €60
If you have Mona Pro Max, the upgrade is €45

I don't think it is worth that price tbh.
Really disappointed by this :(

#noxp

#Perl @PerlWChallenge 363 String Lie Detector and Subnet Sheriff https://wlmb.github.io/2026/03/02/PWC363/
#noxp
Perl Weekly Challenge 363.

String Lie Detector and Subnet Sheriff

#Perl @PerlWChallenge 363 Task 2: Subnet Sheriff
#noxp
```
perl -E '
for my($a,$d)(@ARGV){@A=split /\./, $a;($c=$d)=~s[/(\d+)$][];$m=0; $m=2*$m+$_ for((1)x$1,(0)x(32-$1));
@d=split /\./, $c;($A,$D)=map {$t=0; $t=$t*256+$_ for @$_;$t}[@A],[@d];say "$a, $d -> ", +($A^$D)&$m?"F":"T";}
' 192.168.1.45 192.168.1.0/24 10.0.0.256 10.0.0.0/24 172.16.8.9 172.16.8.9/32 \
172.16.4.5 172.16.0.0/14 192.0.2.0 192.0.2.0/25
```
#Perl @PerlWChallenge 363 Task 1: String Lie Detector
#noxp
```
perl -E '
@n=qw(zero one two three four five six seven eight nine); @n{@n}=(0..9);for(@ARGV){
($s,$v,$c)=($1,$3,$4) if /^\s*(.*?)\s*(-|—)\s*(.*)\s+vowels?\s+and\s+(.*)\s+consonants?$/;
@v=$s=~/([aeiou])/g;say "$_ -> ", @v==$N{$v}&&length($s)-@v==$N{$c}?"T":"F";}
' "aa — two vowels and zero consonants" "iv — one vowel and one consonant" \
"hello - three vowels and two consonants"
```