chomp => sub { my @ret = @a; local $/ = ' '; 1 while chomp @ret; local $/ = "\n"; 1 while chomp @ret; \@ret; },