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
