Trying to start watching Star Trek (never seen it) and I don't want to get Paramore Super X Plus or whatever, and box sets are like $60?! #noxp
Weird way to talk about procreation but ok #noxp
If you have my zip don't ask my state *clap clap*
If you have my zip don't ask my state *clap clap*
If you can't figure it out, your geocoding is dumb
If you have my zip don't ask my state *clap clap*
#noxp
Just pulled the @_elena card on #WikiGacha 🤣 #noxp
#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#"
```