in reply to
Re^2: trim leading & trailing whitespace
in thread trim leading & trailing whitespace
$_ = " no \n \n \n they \n \n won't \n\n\n";
All blank lines are gone.
I see what you mean now. I thought you were suggesting it would remove the newline characters, not just the blank lines. Your way is more correct.
How about this:
$_ = " yes \n \n \n they \n \n will \n\n\n";
% perl 443391.pl
the lowliest monk
Perhaps replace the \b(.*?) with (\S.*?).
Still, you're not running this with warnings enabled, are you? Both $1 and $2 are optional, so both can be undef, but you use their value regardless. This runs without warnings:
I make decisions, and my brain carries them out
My brain makes the decisions, and I observe them (if I'm lucky)
I make some decisions, and my brain makes others
My spouse makes decisions and I and my brain carry them out
I wrote a program to relieve me and my brain from the burden of decision-making
The black-helicopter people project the decisions into my brain and then I do as ordered
Results (522 votes),