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