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