Lines Matching refs:data
115 my @data = split /\n{2,}/, shift;117 shift @data while @data and $data[0] !~ /\S/; # Go to header118 shift @data if @data and $data[0] =~ /Contributed\s+Perl/; # Skip header119 pop @data if @data and $data[-1] =~ /^\w/; # Skip footer, like121 join "\n\n", @data;