johngg@abouriou:~/perl/Monks$ perl -Mstrict -Mwarnings -E 'say q{};
my $SYSPBUFF = <<__EOD__;
 run_type = dev,
  max_monitor_time = 0.25
  verbosity_level = 2

  batch =

   (
    source = sample_document_collection_1
    files = Confucius.docx
    dest = Enterprise:Department
   )
__EOD__

open my $inFH, q{<}, \ $SYSPBUFF
   or die qq{open: < in mem data: $!\n};
my @lines;

while ( <$inFH> )
{
    last if m{batch\s*\=};
    next if m{^\s*$};
    chomp;
    push @lines, $_;
}

close $inFH or die qq{close: < in mem data: $!\n};
say for @lines;'

 run_type = dev,
  max_monitor_time = 0.25
  verbosity_level = 2