my $s = <<'EOS';
 hello
  there
   test
EOS
my $m = 32000;   # regex /^ {$m}/ blows up if $m > 32766
while ($s =~ /^( *)/mg) { $m = length($1) if length($1) < $m }
$s =~ s/^ {$m}//mg if $m;