print unless ( /START context/ or /\* End context \*/ );

##</code><code>##

{
    local $/ = "* End Context *\n";
    while ( <DATA> ) {
    s/^START context//;
    my @info = split /\n/;
    chomp @info;
    print "$_\n" foreach @info
}