ref 1
 ref 2
1 begin
end
2 begin
bar
end
...

##</code><code>##

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

##</code><code>##

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