You can improve the performance slightly by only looking for matching strings larger than the current maximum.

my $p = length($max);
[download]

- Cees