#Perl @PerlWChallenge 377 Reverse Existence and Prefix Suffix https://wlmb.github.io/2026/06/08/PWC377/
#noxp

#Perl @PerlWChallenge 377 Task 2: Prefix Suffix
#noxp
```
perl -E '
for(@ARGV){my@s=split" ";my $c=0;for my $x(@s){/^$x/&&/$x$/&&++$c for@s};say"$_ -> ",$c - @s;}
' "a aba ababa aa" "pa papa ma mama" "abao ab" "abab abab" \
"ab abab ababab" "abc def ghij"
```

#Perl @PerlWChallenge 377 Task 1: Reverse Existence
#noxp
```
perl -E '
L:for(@ARGV){$s=$_;$s=~/$_/&&(say("$s -> T"),next L)for(map{"".reverse $_}
$s=~/(?=(..))/g);say "$s -> F";}
' abcba racecar abcd banana hello
```

#Perl @PerlWChallenge 376 Chessboard Squares and Doubled Words https://wlmb.github.io/2026/06/01/PWC376/
#noxp

#Perl @PerlWChallenge 376 Task 1: Chessboard Squares
#noxp
```
perl -E '
for my($p,$q)(@ARGV){@c=map{split""}($q,$p);@c[0,2]=map{ord}@c[0,2];say "$p $q -> ",
($c[0]-$c[2]+$c[1]-$c[3])%2?"F":"T"}
' a7 f4 c1 e8 b5 h2 f3 h1 a1 g8
```

#Perl @PerlWChallenge 375 Single Common Word and Find K-Beauty https://wlmb.github.io/2026/05/26/PWC375/
#noxp

#Perl @PerlWChallenge 375 Task 2: Find K-Beauty
#noxp
```
perl -E '
for my($n, $k)(@ARGV){say"num=$n k=$k -> ", 0+grep{$n%$_==0}$n=~/(?=(\d{$k}))/g;}
' 240 2 1020 2 444 2 17 2 123 1
```

#Perl @PerlWChallenge 375 Task 1: Single Common Word
#noxp
```
perl -E '
for my($x,$y)(@ARGV){my(%c,%d);$c{$_}++for split" ",$x;$d{$_}++for
split" ",$y;say"\"$x\", \"$y\" -> ",0+grep{$c{$_}==$d{$_}==1}keys%c;}
' "apple banana cherry" "banana cherry date" "a ab abc" "a a ab abc" \
"orange lemon" "grape melon" "test test demo" "test demo demo" \
"Hello world" "hello world"
```

Got a quare surprise seeing my "Spare Change" in Revolut. Looks like I will have a bit of extra spending monies for the weekend. #noxp