Re^2: An efficient way to gather a common portion of several strings' beginnings

[AnomalousMonk]

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

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