http://www.perlmonks.org?node_id=43013


in reply to Re: strip until blank line
in thread strip until blank line

This will not work, as you are not shifting from what you think. Shift defaults to @_ or @ARGV depending on your current scope. You want to use:

 shift @data;

which you now have. You don't really though, as this solution (as a whole) requires you to read the entire file into memory, which could be a bad thing.