in reply to File Parsing
#!/usr/bin/perl -w use strict; my $outside=1; while (<>) { $outside = 0, next if (/^group:/); $outside = 1, next if (/^data:/); print unless $outside || /^\s*$/; } [download]
Update: changed + to * in the print line's regex.