Select Code to Download

while(<DATA>) {
    if (m/<ORIG DATA ABOVE MUNGE BELOW>/) {
...
        $orig .= $_;
    }
}

my ($orig,$munge) = load_file($file);  # munge may be NULL
my $data          = parse($orig);      # process current format data o
+nly
...
write_file($orig, $current_format);    # write to file with separator
my $invalid       = eq_or_diff($munge,$cur_format); 
print "$file\n$invalid\n" if $invalid; # diff output, null if OK