うお、nbpsの綴り間違えてコピペしたorz ついでに^忘れｽﾏｿ
sub get_common_prefix {
  my $buf = join "\n", @_;
  my $repeat = scalar(@_) - 1;
  $buf =~ m{^(.*)(?:.*?\n\1){$repeat}};
  $1;
}