Select Code to Download

while ($allfile =~ /^(\d+) /mg)
    {
...
for (@objects) { $allfile =~ s/^ +$_\n//m; }

print $allfile

for (@objects) { $allfile =~ s/^ *(foo)? +$_\n//mn; }