Select Code to Download

my $file = do { local $/; <> };
1 while $file =~ s/^([ ]{4}[^\n]+)\n[ ]{4}/$1/m;
print($file);

my $file = do { local $/; <> };
1 while $file =~ s/^(([ ]+)(?![ ])[^\n]+)\n\2(?![ ])/$1/m;
print($file);