Back

#Perl @PerlWChallenge 314 Task 1: Equal Strings
#noxp
```
perl -MList::Util=all -E '
@x=@ARGV;while(all {$p=substr $x[0],0,1; /^$p/}@x){++$l;s/.(.*)/$1/ for @x}say $l?length join "",@x:-1;
' abc abb ab
```