Select Code to Download

# init variable to show we're not in the blcok
my $in_block = 0;
...
    $in_block = 0 if /tail$/; # test for end of block and
                              # set flag false if needed
}

fvewvwef vfewejmnvwev evfjerwvnrevjwe
wervkjvwe wevrjvrenwvr head
...
head efcjonecjnercjnerjcnerjnc
crjencerjncejlrcn
tail

head refejrverjvnerjovnerojvn ercjncer
rljnelrkvnervervekjnve tail fknvbekjev
...
head efcjonecjnercjnerjcnerjnc
crjencerjncejlrcn
tail