Any email address is a valid email address once it has at least one character before the @, one character after the @ and a character after the full stop (.)

You should _not_ be doing any checks beyond that. (Unless the domain name is a known spammy domain/TLD, of course, but that doesn't appear to be the case here)

My email address is a 1 character before the @, 2 characters after the @ and 2 letters after the full stop(.)
It is valid.

#Perl @PerlWChallenge 324 2D Array and Total XOR https://wlmb.github.io/2025/06/02/PWC324/
#noxp

#Perl @PerlWChallenge 324 Task 2: Total XOR
#noxp
```
perl -MList::Util=reduce,sum -E '
sub f(@x){@x?(f(@x[1..@x-1]), map {$x[0]^$_}f(@x[1..@x-1])):(0)}say "@ARGV -> ",sum f(@ARGV)
' 3 4 5 6 7 8
```

#Perl @PerlWChallenge 324 Task 1: 2D Array
#noxp
```
perl -MPDL -E '
($r, $c, @i)=@ARGV; say "r=$r, c=$c, array=", pdl(@i), "->", pdl(@i)->reshape($c,$r)
' 2 2 1 2 3 4
```

Heading to Drogheda for the day with mam. Hopefully the weather stays nice. #noxp #mastodaoine

#Perl @PerlWChallenge 322 String Format and Rank Array https://wlmb.github.io/2025/05/19/PWC322/
#noxp

#Perl @PerlWChallenge 322 Task 2: Rank Array
#noxp
```
perl -MList::Util=uniq -E '
$r{$_}=++$i for sort {$a<=>$b} uniq @ARGV; say "@ARGV -> @r{@ARGV}"
' 5 1 1 4 3
```

#Perl @PerlWChallenge 322 Task 1: String Format
#noxp
```
perl -E '
($s,$i)=@ARGV;($o=reverse$s)=~tr/-//d;$o=~s/(.{$i})/$1-/g;$o=~s/-$//;$o=reverse$o;say"$s, $i -> $o"
' -- -A-B-CD-E 4
```

#Perl @PerlWChallenge 321 Distinct Average and Backspace Compare https://wlmb.github.io/2025/05/12/PWC321/
#noxp

#Perl @PerlWChallenge 321 Task 2: Backspace Compare
#noxp
```
perl -E '
@x=@ARGV;($x, $y)=map{1while s/[^\#]\#//g;$_}@x;say "@ARGV -> ",$x eq $y?"True":"False";
' 'ab##' 'a#b#'
```

#Perl @PerlWChallenge 321 Task 1: Distinct Average
#noxp
```
perl -MList::Util=uniq -E '
@x=sort {$a<=>$b}@ARGV;say "@ARGV -> ", 0+uniq map {$x[$_]+$x[-1-$_]}0..@ARGV/2-1;
' 1 2 4 3 5 6
```

#DavidHasselhoff #EddieCibrian

Baywatch Nights 2x01 - Terror of the Deep

Imagine your brain just being non-existent that you _must_ refer to an #AI slop pot to do some basic task, and even though the information that the slop pot produces is either inaccurate or flat out false... you still use it as a response regardless. #AIBollocks #X #Twitter #AIfail #noxp

*in the voice of Jim Ross* New Pope! New Pope! New Pope! Baw-gawd! We have a new Pope, King! The white smoke at Sistine Chapel means we have a new pope!

#Perl @PerlWChallenge 320 Maximum Count and Sum Difference https://wlmb.github.io/2025/05/05/PWC320/
#noxp

#Perl @PerlWChallenge 320 Task 2: Sum Difference
#noxp
```
perl -MList::Util=sum0 -E '
$d=sum0 map {split ""} @ARGV; say "@ARGV -> ", sum0(@ARGV)-$d;
' 1 23 4 5
```

#Perl @PerlWChallenge 320 Task 1: Maximum Count
#noxp
```
perl -MList::Util=max -E '
for(@ARGV){$_>0&&++$p;$_<0&&++$n;} say "@ARGV -> ",max($n,$p);
' - -3 -2 -1 1 2 3
```

Someone get the rolled up newspaper and hit m.s on the nose. #noxp