sub Prefix { my ($ar_strings, ) = @_; return '' unless @$ar_strings; my ($m, $n) = (sort @$ar_strings)[0,-1]; ($m ^ $n) =~ m{ \A \x00* }xms; return substr $m, 0, $+[0]; }