stacked processing

Hello there!

I love perl's ability to "stack" processing without intermediate variables,
e.g. to read in a pipe, strip off commented lines, pull out column 5, and
join, I can just do this:

  $txt = join "", map { (split)[4] } grep { !/^#/ } <>;

What I haven't figured out is how to do a substitution in there, e.g. to
delete any leading blank lines out of the final string, but leave in others.
I'd love to be able to do this:

  $txt = s/\A\n+// join "", map { (split)[4] } grep { !/^#/ } <>;

Is there a way to do something like that here?

- Bryan

• stacked processing by Bryan Harris
• Re: stacked processing by Uri Guttman
• Re: stacked processing by Dr.Ruud
• Re: stacked processing by Shlomi Fish