in reply to Re: An efficient way to gather a common portion of several strings' beginnings
in thread An efficient way to gather a common portion of several strings' beginnings

($common ^ $str) =~ m/^\0+/;

Please see reply above regarding  m/^\0+/ versus  m/^\0*/ match.

Give a man a fish:  <%-{-{-{-<

In Section Seekers of Perl Wisdom