my $chunk1 =();
my $chunk2 =();
my $chunk3 =();

{
local $/ = undef;
($chunck1,$chunk2,$chunk3) = split(/^\!(sectionname1|sectionname2|sectionname3)$/m, <>);
}

print "$sectionname2\n";